All--
I'm thinking this is one of those problems where there are an extra set of quotes or some other simple character messing it up; I've tried brackets and quotes in various places with no luck...whoever finds Waldo first gets a star!
When run, I get an error:
Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/sterilization/update_pick_sln.asp, line 23, column 21
Response.Write (""<a href="update_view_sln.asp?ID=" & rsSterile("Sterile_Lot_Number") & "&PN=" & rsSterile("Packaging_Lot_Number") & ">"")
--------------------^
This page should display all Sterile_Lot_Number records for the previously QueryString'ed Packaging_Lot Number. The results are supposed to be hyperlinks which will pass on the specific Packaging Lot Number and Sterile Lot Number clicked on via Querystring.
The error seems to be in this line:
Response.Write (""<a href="update_view_sln.asp?ID=" & rsSterile("Sterile_Lot_Number") & "&PN=" & rsSterile("Packaging_Lot_Number") & ">"")
Full Code:
<%
Dim adoCon
Dim rsSterile
Dim strSQL
Dim PNum
PNum = Request.QueryString("ID")
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sterilization.mdb")
Set rsSterile = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM SterilizationLog WHERE Packaging_Lot_Number=" & "'" & Request.Form("packnumber") & "'"
rsSterile.Open strSQL, adoCon
%>
<font size=5 color=red face=Verdana>
<%
Response.Write Request.Form("packnumber")
%>
</font><br><br>
<%
Do While not rsSterile.EOF
Response.Write ("<br>")
Response.Write (""<a href="update_view_sln.asp?ID=" & rsSterile("Sterile_Lot_Number") & "&PN=" & rsSterile("Packaging_Lot_Number") & ">"")
Response.Write (rsSterile("Sterile_Lot_Number"))
Response.Write ("</a>")
Response.Write ("<br>")
rsSterile.MoveNext
Loop
rsSterile.Close
Set rsSterile = Nothing
Set adoCon = Nothing
%>
</td>
</tr>
</table>
</body>
</html>
I'm thinking this is one of those problems where there are an extra set of quotes or some other simple character messing it up; I've tried brackets and quotes in various places with no luck...whoever finds Waldo first gets a star!
When run, I get an error:
Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/sterilization/update_pick_sln.asp, line 23, column 21
Response.Write (""<a href="update_view_sln.asp?ID=" & rsSterile("Sterile_Lot_Number") & "&PN=" & rsSterile("Packaging_Lot_Number") & ">"")
--------------------^
This page should display all Sterile_Lot_Number records for the previously QueryString'ed Packaging_Lot Number. The results are supposed to be hyperlinks which will pass on the specific Packaging Lot Number and Sterile Lot Number clicked on via Querystring.
The error seems to be in this line:
Response.Write (""<a href="update_view_sln.asp?ID=" & rsSterile("Sterile_Lot_Number") & "&PN=" & rsSterile("Packaging_Lot_Number") & ">"")
Full Code:
<%
Dim adoCon
Dim rsSterile
Dim strSQL
Dim PNum
PNum = Request.QueryString("ID")
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sterilization.mdb")
Set rsSterile = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM SterilizationLog WHERE Packaging_Lot_Number=" & "'" & Request.Form("packnumber") & "'"
rsSterile.Open strSQL, adoCon
%>
<font size=5 color=red face=Verdana>
<%
Response.Write Request.Form("packnumber")
%>
</font><br><br>
<%
Do While not rsSterile.EOF
Response.Write ("<br>")
Response.Write (""<a href="update_view_sln.asp?ID=" & rsSterile("Sterile_Lot_Number") & "&PN=" & rsSterile("Packaging_Lot_Number") & ">"")
Response.Write (rsSterile("Sterile_Lot_Number"))
Response.Write ("</a>")
Response.Write ("<br>")
rsSterile.MoveNext
Loop
rsSterile.Close
Set rsSterile = Nothing
Set adoCon = Nothing
%>
</td>
</tr>
</table>
</body>
</html>