Frågan#1
När jag ska hämta uppgifer från databasen får jag inga. Den listar bara Sida 1 2 3 4.
Varför?
<body>
<%
Dim visainfo
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\wwwroot\fritid\databas\adressbok.mdb"
visainfo = Request.Form("inbox")
SQL = "SELECT * FROM adressbok"
SET RS = Connection.Execute(SQL)
%>
<%If Request.Form("TypeSearch") = "namn" Then
SQL = "SELECT * FROM adressbok WHERE namn = '"& visainfo &"'"
End If
If Request.Form("TypeSearch") = "Ort" Then
SQL = "SELECT * FROM adressbok WHERE Ort = '"& visainfo &"'"
End If
If Request.Form("TypeSearch") = "Kedjanamn" Then
SQL = "SELECT * FROM adressbok WHERE Kedjanamn = '"& visainfo &"'"
End If
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, Connection%>
<%dim post, mxx, gid
post = request.querystring("ID")
mxx = 3
gid = request.querystring("ID")
SQL = "SELECT * FROM adressbok ORDER BY namn;"
set objRec = Connection.execute(SQL)%>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=456>
<TR><TD align=middle bgColor=#808000 colSpan=2><FONT color=#ffffff face="Verdana, Arial, Helvetica" size=1 align="center"><B>Sökresultat</B></FONT></TD></TR></table><br>
<font color="#000000" face="Verdana, Arial, Helvetica" size=2><b><%If rs.BOF and rs.EOF Then%>Det finns inget som matchar din sökning!</b></font>
<table border="0" width="456" cellspacing="1" cellpadding="0"><tr>
<td width="210" bgcolor="#CCCCCC"><strong><small><font face="Arial" color="#000000">Namn</font></small></strong></td><td width="241" bgcolor="#CCCCCC"><small><font face="Arial" color="#FFFFFF"><strong><font color="#000000">Ort</font></strong></font></small></td></tr>
<% DO UNTIL RS.EOF %>
<tr><td width="210"><strong><small><a href="mainsearch03.asp?ID=<%= RS("namn") %>"><%= RS("namn") %></a></small></strong></td>
<td width="241" align=right><small><font face="Arial" color="#000000"><strong><%= RS("Ort") %></strong></font></small></td></tr>
<%
RS.MoveNext
Loop
%></table><br>
<%else
antal = UBound(objRec.GetRows, 2) + 1
if cint(antal) > cint(mxx) then
response.write "<b>Sida</b> "
antalIter = antal / mxx
if antalIter - int(antalIter) > 0 then antalIter = int(antalIter)+1
for s = 1 to antalIter
if cint(post) = (s-1) * mxx then
%><% =s %> <%
else
%><a href="mainsearch02test.asp?post=<% =(s-1) * mxx %>&mxx=<% =mxx %>&gid=<% =gid %>"><% =s %></a>
<%
end if
%><br>
<%
Next
RS.Close
Connection.Close
End If
End If
%>
</body>
------------------
//Mav