Får inte nedanstående fungera
<%@LANGUAGE="VBSCRIPT" "%>
<HTML>
<HEAD>
<TITLE>kryss lista</TITLE>
</HEAD>
<%
If Request.QueryString("type") = "" Then
intType = 1
Else
intType = CInt(Request.QueryString("type"))
End If
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\vatskebalans\db\vbalans.mdb")
%>
<table width="342" border="1">
<tr>
<td width="103"> </td>
<td colspan="3"><%strSQL = "SELECT f.FluidNamn, ft.TypeNamn, ft.TypeID FROM tblFluidRelat fr, tblFluids f, tblFluidTypes ft WHERE fr.FluidID = f.FluidID AND fr.typeID = ft.typeID AND ft.TypeID = " & intType & " ORDER by ft.typeID"
Set objRS = objConn.Execute(strSQL)
If NOT objRS.EOF Then
Response.Write("<center>" & objRS("TypeNamn") & "</center>")%></td>
</tr>
<tr>
<td>><%intLast = objConn.Execute("SELECT Max(TypeID) FROM tblFluidTypes")(0)
For i = 1 To intLast
Set objRS = objConn.Execute("SELECT TypeNamn FROM tblFluidTypes WHERE TypeID = " & i)
If NOT i = intType Then
Response.Write("<a href=""?type=" & i & """>" & objRS("TypeNamn") & "</a><BR> ")
Else
End If
Next
%></td>
<td width="21"><INPUT NAME=""leggatill"" TYPE=""checkbox"" VALUE="""& objRS("FluidNamn") &"""></td>
<td width="124"><%strSQL = "SELECT f.FluidNamn, ft.TypeNamn, ft.TypeID FROM tblFluidRelat fr, tblFluids f, tblFluidTypes ft WHERE fr.FluidID = f.FluidID AND fr.typeID = ft.typeID AND ft.TypeID = " & intType & " ORDER by ft.typeID"
Set objRS = objConn.Execute(strSQL)
Do Until objRS.EOF
Response.Write objRS("FluidNamn")
objRS.MoveNext
Loop
Else
Response.Write("Det finns inga av den typen.")
End If
</td><td width="66"><%strSQL = "SELECT f.FluidNamn, ft.TypeNamn, ft.TypeID FROM tblFluidRelat fr, tblFluids f, tblFluidTypes ft WHERE fr.FluidID = f.FluidID AND fr.typeID = ft.typeID AND ft.TypeID = " & intType & " ORDER by ft.typeID"
Set objRS = objConn.Execute(strSQL)
Do Until objRS.EOF
<INPUT NAME=""volym"" TYPE=""text""><br>"
objRS.MoveNext
Loop
Else
Response.Write("Det finns inga av den typen.")
End If
Response.Write("<br>")</td>
</tr>
</table>
<%
Response.Write "<INPUT TYPE=""submit"" VALUE=""Lägg till Vätskebalansen"">"
Set objRS = Nothing
objConn.Close : Set objConn = Nothing
%>
</BODY>
</HTML>
Hela tiden samma fel mess
Microsoft VBScript compilation error '800a0400'
Expected statement
/vatskebalans/kryss.asp, line 53
</td>
^
rad 51 - 61
End If
</td><td width="66"><%strSQL = "SELECT f.FluidNamn, ft.TypeNamn, ft.TypeID FROM tblFluidRelat fr, tblFluids f, tblFluidTypes ft WHERE fr.FluidID = f.FluidID AND fr.typeID = ft.typeID AND ft.TypeID = " & intType & " ORDER by ft.typeID"
Set objRS = objConn.Execute(strSQL)
Do Until objRS.EOF
<INPUT NAME=""volym"" TYPE=""text""><br>"
objRS.MoveNext
Loop
Else
Response.Write("Det finns inga av den typen.")
End If