• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 190
  • Last Modified:

ASP results link to editing page

ok have page that does ASP query to datasource and brings back results but having problem putting link into results which takes viewer to an edit page


<!-- Code -->
 <%
strSearch = Request.Form("search")

If strSearch <> "" Then
      Dim strConnect, SQL
      Dim RS
      strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("ITtracking.mdb") & ";"

      SQL = "SELECT * FROM ITTable WHERE INSTR(ITTable.ITNumber,'" & strSearch & "')"

      Set RS = Server.CreateObject("Adodb.Recordset") 'Used for pulling main categories from DB
      RS.Open SQL,strConnect
         ' here's where our custom error goes:
     If Rs.BOF then
        ' no records found so redirect to custom error page.
         response.redirect "sorry.htm"
        End If
      Do Until RS.EOF
            
########################################################
Need the results to this line (ITNumber) to be a link to an edit page I have another page that produces list of all results in database then links to edit page works fine need "ITNumber to be link to same page with item numer ID which was brought back from database
########################################################
                  Response.Write RS("ITNumber") & "<BR><BR>"
                  Response.Write RS("DateArrived") & "<BR><BR>"
                  Response.Write RS("RefNumber") & "<BR><BR>"
                  Response.Write RS("Quantity") & "<BR><BR>"
                  Response.Write RS("PUDate") & "<BR><BR>"
                  Response.Write RS("PUNumber") & "<BR><BR>"
                  Response.Write RS("ID") & "<BR><BR>"
                  Response.Write RS("OriginalIT") & "<BR><BR>"
                  Response.Write RS("ValidatedIT") & "<BR><BR>"
                  Response.Write RS("CustomsRelease") & "<BR><BR>"
                  Response.Write RS("ShippingTally") & "<BR><BR>"
                  Response.Write RS("NVOCCRelease") & "<BR><BR>"
                  Response.Write RS("PaperlessIT") & "<BR><BR>"
            'End If

            RS.MoveNext
      LOOP
      
      RS.Close
      
End If

%>
0
Wiredwizard
Asked:
Wiredwizard
  • 2
1 Solution
 
Ryan ChongCommented:
In your page above, you need to create hyperlinks in order to enable you to click it and go to the edit page. something like:

...
<a href="editdetail.asp?id=<%=Rs("ID")%>">Edit</a>
...

or what's your exact problem?
0
 
WiredwizardAuthor Commented:
tried that got this error


Microsoft VBScript compilation error '800a0400'

Expected statement

/securefiles/edit.asp, line 77

<a href="editdetail.asp?id=<%=Rs("ID")
^
0
 
Ryan ChongCommented:
Let me know what's the full script for line 77? Are you missing to put a "%>" there??
0

Featured Post

Firewall Management 201 with Professor Wool

In this whiteboard video, Professor Wool highlights the challenges, benefits and trade-offs of utilizing zero-touch automation for security policy change management. Watch and Learn!

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now