Request.QueryString Problem

Tags:    asp

Hey alle vidunderlige programmøre...
Jeg har det her lille Request problem. Det er som om at der ikke bliver hentet noget fra URL'en..
Jeg håber der er en der lige kan spotte problemet.. :D

<pre>
<%
' Database connection, Selection and RecordSet
server.scripttimeout = 600
set oFso = server.CreateObject("scripting.filesystemobject")
set oDb = server.CreateObject("adodb.connection")

OpenString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("oracle.mdb")
oDb.open OpenString

set oRs = server.CreateObject("adodb.recordset")



Select Case request("cmd")

Case "ProductTypes"

Response.Write "<p class=ntext>" & Request.QueryString("ProductTypes") & "</p>"

Case Else
oRs.open "select distinct [from item] from [RelationShip 5 (txt)]", oDb

strPrevTypeNo = ""

While not oRs.EOF
strThisTypeNo = mid(oRs("from item"),1,5)
if strThisTypeNo <> strPrevTypeNo then
Response.Write "<blockquote><p class=ntext>»  <a href=details.asp?cmd=ProductTypes&" & strThisTypeNo & "=" & oRs("from item") & ">" & strThisTypeNo & "</a></p></blockquote>"
end if
strPrevTypeNo = strThisTypeNo
Response.flush
oRs.movenext
count = count + 1
WEnd

End Select
%>
</pre>

På forhånd mange tak ..


[Redigeret d. 21/03-04 21:21:42 af Kenneth Kristoffersen]



<b>
Jeg har fået hjælp på #asp.dk @ Quakenet så i behøver ikke kigge nærmere på denne pOST
</b>

Hey alle vidunderlige programmøre...
Jeg har det her lille Request problem. Det er som om at der ikke bliver hentet noget fra URL'en..
Jeg håber der er en der lige kan spotte problemet.. :D

<pre>
<%
' Database connection, Selection and RecordSet
server.scripttimeout = 600
set oFso = server.CreateObject("scripting.filesystemobject")
set oDb = server.CreateObject("adodb.connection")

OpenString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & server.MapPath("oracle.mdb")
oDb.open OpenString

set oRs = server.CreateObject("adodb.recordset")



Select Case request("cmd")

Case "ProductTypes"

Response.Write "<p class=ntext>" & Request.QueryString("ProductTypes") & "</p>"

Case Else
oRs.open "select distinct [from item] from [RelationShip 5 (txt)]", oDb

strPrevTypeNo = ""

While not oRs.EOF
strThisTypeNo = mid(oRs("from item"),1,5)
if strThisTypeNo <> strPrevTypeNo then
Response.Write "<blockquote><p class=ntext>»  <a href=details.asp?cmd=ProductTypes&" & strThisTypeNo & "=" & oRs("from item") & ">" & strThisTypeNo & "</a></p></blockquote>"
end if
strPrevTypeNo = strThisTypeNo
Response.flush
oRs.movenext
count = count + 1
WEnd

End Select
%>
</pre>

På forhånd mange tak ..


[Redigeret d. 21/03-04 21:21:42 af Kenneth Kristoffersen]



Hvis der bare er den mindste mulighed for at noget går galt, så går det galt..



t