June
Tuesday 15 January 2008 photo 1/1
|
lite goare schema nu elle :P bör kanske tilläggas att sista lektionen på fredagar är bara en gång i månaden :P
Annons
Anonymous
Wed 16 Jan 2008 16:30
gillar din kommentar på schemat ;)
Nordinho
Wed 16 Jan 2008 09:42
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
If Request.QueryString("val") = "visa" Then %>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\www\FTP\emanuel\data\mindatabas.mdb"
Set RecSetFrukter = Server.CreateObject("ADODB.Recordset")
Frukter = "SELECT * FROM frukter"
RecSetFrukter.CursorType = 1
RecSetFrukter.LockType = 3
RecSetFrukter.Open Frukter, Connect
%>
<% Do Until RecSetFrukter.EOF %>
Frukt: <% =RecSetFrukter("namn") %>
Vikt: <% =RecSetFrukter("vikt") %>
<a href="file:///G|/Elev/Databashantering/genomgang_071126.asp?val=ta_bort&namn=<% =RecSetFrukter("namn") %>">Ta bort</a>
<a href="file:///G|/Elev/Databashantering/genomgang_071126.asp?val=andra&namn=<% =RecSetFrukter("namn") %>">Ändra</a>
<br>
<%
If RecSetFrukter.EOF Then
Exit Do
Else
RecSetFrukter.MoveNext
End If
Loop
RecSetFrukter.Close
Set RecSetFrukter = Nothing
Connect.Close
Set Connect = Nothing
%>
<a href="file:///G|/Elev/Databashantering/genomgang_071126.asp?val=lagg_till">Lägg till ny</a>
<%
ElseIf Request.QueryString("val") = "lagg_till" Then %>
<form method="post" action="file:///G|/Elev/Databashantering/genomgang_071126.asp?val=spara">
<input type="text" name="frukt">
<input type="text" name="vikt">
<input type="submit" value="Spara">
</form>
<%
ElseIf Request.QueryString("val") = "spara" Then %>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\www\FTP\emanuel\data\mindatabas.mdb"
Set RecSetFrukter = Server.CreateObject("ADODB.Recordset")
If Request.QueryString("alternativ") <> "uppdatera" Then
Frukter = "SELECT * FROM frukter"
Else
Frukter = "SELECT * FROM frukter WHERE namn = '" & Request.Form("frukt") & "'"
End If
RecSetFrukter.CursorType = 1
RecSetFrukter.LockType = 3
RecSetFrukter.Open Frukter, Connect
If Request.QueryString("alternativ") <> "uppdatera" Then
RecSetFrukter.AddNew
End If
RecSetFrukter("namn") = Request.Form("frukt")
RecSetFrukter("vikt") = Request.Form("vikt")
RecSetFrukter.UpDate
RecSetFrukter.Close
Set RecSetFrukter = Nothing
Connect.Close
Set Connect = Nothing
Response.ReDirect("genomgang_071126.asp?val=visa")
%>
<%
ElseIf Request.QueryString("val") = "ta_bort" Then %>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\www\FTP\emanuel\data\mindatabas.mdb"
Connect.Execute("DELETE * FROM frukter WHERE namn = '" & Request.QueryString("namn") & "'")
Connect.Close
Set Connect = Nothing
Response.ReDirect("genomgang_071126.asp?val=visa") %>
<%
ElseIf Request.QueryString("val") = "andra" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\www\FTP\emanuel\data\mindatabas.mdb"
Set RecSetFrukter = Server.CreateObject("ADODB.Recordset")
Frukter = "SELECT * FROM frukter WHERE namn = '" & Request.QueryString("namn") & "'"
RecSetFrukter.CursorType = 1
RecSetFrukter.LockType = 3
RecSetFrukter.Open Frukter, Connect %>
<form method="post" action="file:///G|/Elev/Databashantering/genomgang_071126.asp?val=spara&alternativ=uppdatera">
<input type="text" name="frukt" value="<% =RecSetFrukter("namn") %>">
<input type="text" name="vikt" value="<% =RecSetFrukter("vikt") %>">
<input type="submit" value="Uppdatera">
</form>
<%
RecSetFrukter.Close
Set RecSetFrukter = Nothing
Connect.Close
Set Connect = Nothing
End If %>
</body>
</html>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
If Request.QueryString("val") = "visa" Then %>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\www\FTP\emanuel\data\mindatabas.mdb"
Set RecSetFrukter = Server.CreateObject("ADODB.Recordset")
Frukter = "SELECT * FROM frukter"
RecSetFrukter.CursorType = 1
RecSetFrukter.LockType = 3
RecSetFrukter.Open Frukter, Connect
%>
<% Do Until RecSetFrukter.EOF %>
Frukt: <% =RecSetFrukter("namn") %>
Vikt: <% =RecSetFrukter("vikt") %>
<a href="file:///G|/Elev/Databashantering/genomgang_071126.asp?val=ta_bort&namn=<% =RecSetFrukter("namn") %>">Ta bort</a>
<a href="file:///G|/Elev/Databashantering/genomgang_071126.asp?val=andra&namn=<% =RecSetFrukter("namn") %>">Ändra</a>
<br>
<%
If RecSetFrukter.EOF Then
Exit Do
Else
RecSetFrukter.MoveNext
End If
Loop
RecSetFrukter.Close
Set RecSetFrukter = Nothing
Connect.Close
Set Connect = Nothing
%>
<a href="file:///G|/Elev/Databashantering/genomgang_071126.asp?val=lagg_till">Lägg till ny</a>
<%
ElseIf Request.QueryString("val") = "lagg_till" Then %>
<form method="post" action="file:///G|/Elev/Databashantering/genomgang_071126.asp?val=spara">
<input type="text" name="frukt">
<input type="text" name="vikt">
<input type="submit" value="Spara">
</form>
<%
ElseIf Request.QueryString("val") = "spara" Then %>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\www\FTP\emanuel\data\mindatabas.mdb"
Set RecSetFrukter = Server.CreateObject("ADODB.Recordset")
If Request.QueryString("alternativ") <> "uppdatera" Then
Frukter = "SELECT * FROM frukter"
Else
Frukter = "SELECT * FROM frukter WHERE namn = '" & Request.Form("frukt") & "'"
End If
RecSetFrukter.CursorType = 1
RecSetFrukter.LockType = 3
RecSetFrukter.Open Frukter, Connect
If Request.QueryString("alternativ") <> "uppdatera" Then
RecSetFrukter.AddNew
End If
RecSetFrukter("namn") = Request.Form("frukt")
RecSetFrukter("vikt") = Request.Form("vikt")
RecSetFrukter.UpDate
RecSetFrukter.Close
Set RecSetFrukter = Nothing
Connect.Close
Set Connect = Nothing
Response.ReDirect("genomgang_071126.asp?val=visa")
%>
<%
ElseIf Request.QueryString("val") = "ta_bort" Then %>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\www\FTP\emanuel\data\mindatabas.mdb"
Connect.Execute("DELETE * FROM frukter WHERE namn = '" & Request.QueryString("namn") & "'")
Connect.Close
Set Connect = Nothing
Response.ReDirect("genomgang_071126.asp?val=visa") %>
<%
ElseIf Request.QueryString("val") = "andra" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\www\FTP\emanuel\data\mindatabas.mdb"
Set RecSetFrukter = Server.CreateObject("ADODB.Recordset")
Frukter = "SELECT * FROM frukter WHERE namn = '" & Request.QueryString("namn") & "'"
RecSetFrukter.CursorType = 1
RecSetFrukter.LockType = 3
RecSetFrukter.Open Frukter, Connect %>
<form method="post" action="file:///G|/Elev/Databashantering/genomgang_071126.asp?val=spara&alternativ=uppdatera">
<input type="text" name="frukt" value="<% =RecSetFrukter("namn") %>">
<input type="text" name="vikt" value="<% =RecSetFrukter("vikt") %>">
<input type="submit" value="Uppdatera">
</form>
<%
RecSetFrukter.Close
Set RecSetFrukter = Nothing
Connect.Close
Set Connect = Nothing
End If %>
</body>
</html>
5 comments on this photo
Directlink:
http://dayviews.com/nordinho/150818182/
Visa toppen
Show footer