Søg i database - Virker ikke på IIS på 2k? (v. 5.0)?
Hej alle sammen.Jeg har en kode (Som i kan se nedenunder). Problemet med denne kode er at når jeg søger på min lokale IIS server på win xp, så virker det hele perfekt, men når jeg uploader siden og prøver den der, så siger den bare at der ikke var noget at finde (altså den melder ingen fejl, den gør bare ikke som den skal)
har i forslag til hvordan jeg kan løse problemet, eller hvordan jeg kan ændre i koden så det kommer til at virke på begge servere...?
------------------Kode:--------------------
<% @ Language = VBScript %>
<%
if session("login") = "" Then
Response.redirect("login.asp")
end if
%>
<%
Response.Buffer = True
Response.Expires = 0
Response.Clear
displayRecs = 20
recRange = 10
%>
<%
' Get table name
tablename = "Opretbooking"
dbwhere = "type = 'snowflake'"
a_search = ""
b_search = ""
%>
<%
if Trim(Replace(Request.Querystring("psearch2"),"Hjemrejsedato","")) <> "" then
pSearch = Request.Querystring("psearch") & "+" & Trim(Replace(Request.Querystring("psearch2"),"Hjemrejsedato",""))
else
pSearch = Request.Querystring("psearch")
end if
if InStr(1,pSearch, "+",1) <> 0 then
pSearch223 = Split(pSearch,"+")
pSearch = pSearch223(0)
pSearchLast = pSearch223(1)
pSearch = Replace(pSearch,"'","''")
pSearch = Replace(pSearch,"[","[[]")
pSearchLast = Replace(pSearchLast,"'","''")
pSearchLast = Replace(pSearchLast,"[","[[]")
else
pSearch = replace(pSearch,"'","''")
pSearch = replace(pSearch,"[","[[]")
end if
a_search = a_search & "Id LIKE '%" & pSearch & "%' OR "
a_search = a_search & "afrejsedato LIKE '%" & pSearch & "%' OR "
a_search = a_search & "Destairlines LIKE '%" & pSearch & "%' OR "
a_search = a_search & "afrejse LIKE '%" & pSearch & "%' OR "
a_search = a_search & "ankomst LIKE '%" & pSearch & "%' OR "
a_search = a_search & "Betbetingelser LIKE '%" & pSearch & "%'"
if Trim(Replace(Request.Querystring("psearch2"),"Hjemrejsedato","")) <> "" then
a_search2 = "hjemrejsedato LIKE '%" & pSearchLast & "%'"
end if
if Trim(Replace(Request.Querystring("psearch2"),"Hjemrejsedato","")) <> "" then
a_search = " AND (" & a_search & ") AND (" & a_search2 & ")"
else
a_search = " AND (" & a_search & ")"
end if
dbwhere = dbwhere & a_search
%>
<%
'Save search criteria
If dbwhere <> "" Then
Session("tablename") = tablename
Session("dbwhere") = dbwhere
'reset start record counter
startRec = 1
Session("Rejseliste_REC") = startRec
Else
If tablename = Session("tablename") Then
dbwhere = Session("dbwhere")
Else
'reset search criteria
dbwhere = ""
Session("dbwhere") = dbwhere
End If
End If
'Get clear search cmd
If Request.QueryString("cmd").Count > 0 then
cmd=Request.QueryString("cmd")
If ucase(cmd) = "RESET" Then
'reset search criteria
dbwhere = "type = 'snowflake'"
Session("dbwhere") = dbwhere
End If
End If
%>
<%
' Load Default Order
DefaultOrder = ""
DefaultOrderType = ""
' Check for an Order parameter
OrderBy = ""
If Request.QueryString("order").Count > 0 Then
OrderBy = Request.QueryString("order")
' Check if an ASC/DESC toggle is required
If Session("Rejseliste_OB") = OrderBy Then
If Session("Rejseliste_OT") = "ASC" Then
Session("Rejseliste_OT") = "DESC"
Else
Session("Rejseliste_OT") = "ASC"
End if
Else
Session("Rejseliste_OT") = "ASC"
End If
Session("Rejseliste_OB") = OrderBy
Session("Rejseliste_REC") = 1
Else
OrderBy = Session("Rejseliste_OB")
if OrderBy = "" then
OrderBy = DefaultOrder
Session("Rejseliste_OB") = OrderBy
Session("Rejseliste_OT") = DefaultOrderType
End If
End If
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath ("db/min.mdb") & ";uid=;pwd=;"
strsql = "select * from Opretbooking"
If dbwhere <> "" Then
strsql = strsql & " WHERE " & dbwhere
End If
if OrderBy <> "" then
strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("Rejseliste_OT")
end if
'response.write strsql
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 3
totalRecs = rs.RecordCount
' Check for a START or PAGENO parameter
If Request.QueryString("start").Count > 0 Then
startRec = Request.QueryString("start")
Session("Rejseliste_REC") = startRec
ElseIf Request.QueryString("pageno").Count > 0 Then
pageno = Request.QueryString("pageno")
if isnumeric(pageno) then
startRec = (pageno-1)*displayRecs+1
if startRec <= 0 then
startRec = 1
elseif startRec >= ((totalRecs-1)\displayRecs)*displayRecs+1 then
startRec = ((totalRecs-1)\displayRecs)*displayRecs+1
end if
Session("Rejseliste_REC") = startRec
Else
startRec = Session("Rejseliste_REC")
if not isnumeric(startRec) or startRec = "" then
'reset start record counter
startRec = 1
Session("Rejseliste_REC") = startRec
End If
End If
Else
startRec = Session("Rejseliste_REC")
if not isnumeric(startRec) or startRec = "" then
'reset start record counter
startRec = 1
Session("Rejseliste_REC") = startRec
End If
End If
%>
<table width="100%" border="0" cellspacing="2" cellpadding="0"><tr><td>
<table border="0" cellspacing="1" cellpadding="2" width="725">
<script>
function checksoeg() {
if (document.form1.psearch.value.length <= 0) {
alert("Du har ikke indtastet noget søgeord.");
return false;
} else {
return true;
}
}
</script>
<tr><td width="150"><font face="tahoma, verdana" size="2"><b>¤ Rejser Liste</b></font></td>
<td height="0" align="right" width="600">
<FORM ACTION="Rejselisteauto.asp" name="form1" onsubmit="return checksoeg()">
<font face="Verdana" size="2">Hurtig Sogning <INPUT TYPE="Text" NAME="psearch" SIZE=20><INPUT TYPE="Text" onfocus="if(this.value==this.defaultValue)this.value='';" onblur="if(this.value=='')this.value=this.defaultValue;" value="Hjemrejsedato" NAME="psearch2" SIZE=20>
<INPUT TYPE="Submit" NAME="Submit" VALUE="VIS"></font></FORM>
</td>
<td width="43"><a href="Rejselisteauto.asp?cmd=reset"><font face="Verdana" size="2"><b>Vis Alle</b></font></a></td>
<td width="100"><img border="0" src="images/rejselist.gif" width="50" height="50" align="right"></td>
</tr>
</table>
<form>
<table border="0" cellspacing="1" cellpadding="5" bgcolor="#CCCCCC" width="723">
<tr bgcolor="#7B9EBD">
<td>
<a href="Rejselisteauto.asp?order=<%= Server.URLEncode("Id") %>"><font size="1" color="#FFFFFF" face="Verdana">Id </font></a>
</td>
<td>
<a href="Rejselisteauto.asp?order=<%= Server.URLEncode("navn") %>"><font color="#FFFFFF" size="1" face="Verdana">Navn (*)</font></a>
</td>
<td>
<a href="Rejselisteauto.asp?order=<%= Server.URLEncode("afrejsedato") %>"><font color="#FFFFFF" size="1" face="Verdana">Afrejsedato </font></a>
</td>
<td>
<a href="Rejselisteauto.asp?order=<%= Server.URLEncode("Destairlines") %>"><font color="#FFFFFF" size="1" face="Verdana">Airlines (*)</font></a>
</td>
<td>
<a href="Rejselisteauto.asp?order=<%= Server.URLEncode("afrejse") %>"><font color="#FFFFFF" size="1" face="Verdana">Afrejse (*)</font></a>
</td>
<td>
<a href="Rejselisteauto.asp?order=<%= Server.URLEncode("ankomst") %>"><font color="#FFFFFF" size="1" face="Verdana">Ankomst (*)</font></a>
</td>
<td>
<a href="Rejselisteauto.asp?order=<%= Server.URLEncode("Betbetingelser") %>">
<font color="#FFFFFF" size="1" face="Verdana">Betingelser (*)</font></a>
</td
</tr>
<%
'Avoid starting record > total records
if clng(startRec) > clng(totalRecs) then
startRec = totalRecs
end if
'Set the last record to display
stopRec = startRec + displayRecs - 1
'Move to first record directly for performance reason
recCount = startRec - 1
if not rs.eof then
rs.movefirst
rs.move startRec - 1
end if
recActual = 0
Do While (NOT rs.EOF) AND (recCount < stopRec)
recCount = recCount + 1
If Clng(recCount) >= Clng(startRec) Then
recActual = recActual + 1 %>
<%
'set row color
bgcolor="#FFFFFF"
%>
<%
' Display alternate color for rows
If recCount mod 2 <> 0 Then
bgcolor="#F5F5F5"
End If
%>
<%
x_Id = rs("Id")
x_navn = rs("navn")
x_afrejsedato = rs("afrejsedato")
x_Destairlines = rs("Destairlines")
x_afrejse = rs("afrejse")
x_ankomst = rs("ankomst")
x_Betbetingelser = rs("Betbetingelser")
%>
<tr bgcolor="<%= bgcolor %>">
<td><font face="Verdana" size="1">
<% response.write x_Id %></font></td>
<td><font face="Verdana" size="1">
<% response.write x_navn %></font></td>
<td><font face="Verdana" size="1">
<% response.write x_afrejsedato %></font></td>
<td><font face="Verdana" size="1">
<% response.write x_Destairlines %></font></td>
<td><font face="Verdana" size="1">
<% response.write x_afrejse %></font></td>
<td><font face="Verdana" size="1">
<% response.write x_ankomst %></font></td>
<td><font face="Verdana" size="1">
<% response.write x_Betbetingelser %></font></td>
</tr>
<%
end if
rs.MoveNext
Loop
%>
</table>
<p> </p>
</td></tr></table>
</form>
<table border="0" cellspacing="0" cellpadding="10" width="728"><tr><td>
<%
if totalRecs > 0 then
PrevStart = startRec - displayRecs
If PrevStart < 1 Then PrevStart = 1
NextStart = startRec + displayRecs
If NextStart > totalRecs Then NextStart = startRec
LastStart = ((totalRecs-1)\displayRecs)*displayRecs+1
%>
<form>
<table border="0" cellspacing="0" cellpadding="0"><tr><td><font face="Verdana" size="1">Side</font> </td>
<!--first page button-->
<% If clng(startRec)=1 Then %>
<td><img src="images/firstdisab.gif" alt="First" width="20" height="15" border="0"></td>
<% Else %>
<td><a href="Rejselisteauto.asp?start=1"><img src="images/first.gif" alt="First" width="20" height="15" border="0"></a></td>
<% End If %>
<!--previous page button-->
<% If clng(PrevStart) = clng(startRec) Then %>
<td><img src="images/prevdisab.gif" alt="Previous" width="20" height="15" border="0"></td>
<% Else %>
<td><a href="Rejselisteauto.asp?start=<%=PrevStart%>"><img src="images/prev.gif" alt="Previous" width="20" height="15" border="0"></a></td>
<% End If %>
<!--current page number-->
<td><input type="text" name="pageno" value="<%=(startRec-1)\displayRecs+1%>" size="4" style="font-size: 9pt;"></td>
<!--next page button-->
<% If clng(NextStart) = clng(startRec) Then %>
<td><img src="images/nextdisab.gif" alt="Next" width="20" height="15" border="0"></td>
<% Else %>
<td><a href="Rejselisteauto.asp?start=<%=NextStart%>"><img src="images/next.gif" alt="Next" width="20" height="15" border="0"></a></td>
<% End If %>
<!--last page button-->
<% If clng(LastStart) = clng(startRec) Then %>
<td><img src="images/lastdisab.gif" alt="Last" width="20" height="15" border="0"></td>
<% Else %>
<td><a href="Rejselisteauto.asp?start=<%=LastStart%>"><img src="images/last.gif" alt="Last" width="20" height="15" border="0"></a></td>
<% End If %>
<td> </td>
<td> <font face="Verdana" size="1">af </font><font size="-1"> <%=(totalRecs-1)\displayRecs+1%></font></td>
</tr></table>
</form>
<% If stopRec > recCount Then stopRec = recCount %>
<font face="Verdana" size="1">Oplysning <%= startRec %> til <%= stopRec %> af <%= totalRecs %>
<% Else %>
</font>
<p><font face="Verdana" size="1">Ingen Oplysning fundet!</font></p>
<p><a href="Rejselisteadd.asp"><img src="images/addnew.gif" alt="Add new" width="20" height="15" border="0"></a></p>
<% End If %>
</td></tr></table>
<%
' Close recordset and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing %>
----------------Kode slut------------------
Med venlig hilsen Hans
