Nogen der kan finde fejl i mine 2 små RETTE-filer
HejJeg har lige lavet to små simple "rette" filer.
Den første ser ud til at virke fint, men den næste fejler - og jeg kan ikke finde fejlen....
Nogen der kan hjælpe ? Tak.
**** RET-KAMP.ASP
<!--#include file="resultatconnection.asp"-->
<HTML><head>
</head>
<body>
<h1 title="Resultatprogram">Ret kamp !</h1>
<%
Dim hvilken, objRec
hvilken = Request.queryString("id")
Set objRec = Server.CreateObject ("ADODB.Recordset")
If hvilken = "" Then
objRec.Open "SELECT id,kamp,start FROM kampe",conn
Do While Not objRec.EOF
Response.Write "<a href='ret-kamp.asp?id=" & objRec("id") & "'>" & objRec("kamp") & " "
Response.Write objRec("start") & "</a><br>"
objRec.Movenext
Loop
Else
objRec.Open "SELECT * FROM kampe WHERE id = " & hvilken, conn
Response.Write "<FORM ACTION='ret-kampe-nu.asp'>"
Do While Not objRec.EOF
Response.Write "<INPUT TYPE='HIDDEN' VALUE='" & objRec("id") & "' NAME='id'>" & vbCrLf
Response.Write "Kamp: "
Response.Write "<INPUT TYPE='text' VALUE='" & objRec("kamp") & "' NAME=""kamp"">" & vbCrLf
Response.Write "Start: "
Response.Write "<INPUT TYPE='text' VALUE='" & objRec("start") & "' NAME=""start"">" & vbCrLf
Response.Write "<INPUT TYPE='SUBMIT' VALUE='Opdater'></form>" & vbCrLf
objRec.Movenext
Loop
End if
objRec.Close
Set objRec = Nothing
%>
</body>
</html>
**** RET-KAMP-NU.ASP
<!--#include file="resultatconnection.asp"-->
<html><head>
</head><body>
<h2>Database opdateres.....</h2>Vent venligst
<%
hvilken = Request.QueryString("id")
kamp = Request.QueryString("kamp")
start = Request.QueryString("start")
Dim strSql
strSql = "UPDATE kampe SET " &_
"kamp='" & kamp & _
"', start='" & start & _
"' WHERE id = " & hvilken
conn.execute (strSQL)
conn.Close
%>
<script>
setTimeout("location.href='ret-kamp.asp'",1000)
</script>
</body></html>
