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..
<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]