rs.open "SELECT * FROM varmara WHERE ID=" & Request("ID"), conn
Frågan#1
Hej,
Jag får följande felmess när jag klickar på en länk.
någon som kan säga vad felet är?
Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A0409)
Oavslutad strängkonstant
/sumpan/showall.asp, line 15, column 66
rs.open "SELECT * FROM varmara WHERE ID=" & Request("ID") &", conn
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("db\2003b.mdb")
set rs=Server.CreateObject("ADODB.recordset")
rs.open "SELECT * FROM varmara WHERE ID=" & Request("ID") & ", conn
if rs.eof then
response.write "<hr><center>Ingen data funnen</center><hr>"
end if
%>
<center>
<table border="1" style="border-collapse: collapse" bordercolor="#000000" cellspacing="0" cellpadding="2">
<tr bgcolor="#000000">
<td width="50" align="center"><b><font color="#FFFFFF">Pos</font></b></td>
<td width="140" align="left"><b><font color="#FFFFFF">Namn</font></b></td>
<td width="50" align="center"><b><font color="#FFFFFF">Hcp</font></b></td>
<td width="50" align="center"><b><font color="#FFFFFF">V1</font></b></td>
<td width="50" align="center"><b><font color="#FFFFFF">V2</font></b></td>
<td width="50" align="center"><b><font color="#FFFFFF">Tot</font></b></td>
<td width="50" align="center"><b><font color="#FFFFFF">Thcp</font></b></td>
<td width="50" align="center"><b><font color="#FFFFFF">P</font></b></td>
</tr>
<%
dim background
background="#cccccc"
%>
<%do while not rs.eof %>
<%
if background = "#ffffff" then
background = "#cccccc"
else
background = "#ffffff"
end if
%>
<tr bgcolor="<%=background%>">
<td align="center"><%=rs.Fields("pos").Value%></td>
<td align="left"><%=rs.Fields("Fname").Value%> <%=rs.Fields("Lname").Value%></td>
<td align="center"><%=rs.Fields("hcp").Value%></td>
<td align="center"><%=rs.Fields("r1").Value%></td>
<td align="center"><%=rs.Fields("r2").Value%></td>
<td align="center"><%=rs.Fields("total").Value%></td>
<td align="center"><%=rs.Fields("Thcp").Value%></td>
<td align="center"><%=rs.Fields("Points").Value%></td>
</tr>
<%rs.movenext
Loop%>
</table>
</center>
</body>
</html>
<%
set rs = nothing
%>
Tack på förhand
/S
