<%
<%
Dim GetStatus
Dim GetStatus_numRows
Set GetStatus = Server.CreateObject("ADODB.Recordset")
GetStatus.ActiveConnection = YOUR STRING
GetStatus.Source = "SELECT * FROM dbo.OrderHeaders WHERE OrderID = '"& (selectorders.Fields.Item("expr1").Value) &"'"
GetStatus.CursorType = 0
GetStatus.CursorLocation = 2
GetStatus.LockType = 1
GetStatus.Open()
GetStatus_numRows = 0
While NOT GetStatus.EOF
' write the results out
Response.Write(GetStatus("ID"))
' If statement to see which one is selected
If Request.QueryString("show") = "" Then
else
' next we have another rs to show the details
Dim UserDetails
Dim UserDetails_numRows
Set UserDetails = Server.CreateObject("ADODB.Recordset")
UserDetails.ActiveConnection = YourString
UserDetails.Source = "SELECT * FROM etc"
UserDetails.CursorType = 0
UserDetails.CursorLocation = 2
UserDetails.LockType = 1
UserDetails.Open()
UserDetails_numRows = 0
' Write out the details if selected
Response.Write(UserDetails("OrderDetails"))
' move to the next record
GetStatus.MoveNext()
'end inner loop
end if
'end the while
wend
'close the connections
UserDetails.Close()
GetStatus.Close()
%>