En simpel søgeside med 2 parametre
Jeg prøver på at lære, hvordan man laver en søgeside. Mit mål er at have to combo-bokse, hvor jeg vælger mine søgekriterier, og udfører søgningen. Men først vi jeg oprette en søgeside med to kriteriefelter.Søgningen bliver ikke udført, da browseren melder en HTTP 500 fejl.
Hvad kan der da være galt?
Kildekode:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/pegasusDB.asp" -->
<%
Dim pegatest__navnparam
pegatest__navnparam = "Henrik Siber"
If (Request.Form(“formnavn”) <> "") Then
pegatest__navnparam = Request.Form(“formnavn”)
End If
%>
<%
Dim pegatest__gadeparam
pegatest__gadeparam = "Sjællandsgade"
If (Request.Form(“formgade”) <> "") Then
pegatest__gadeparam = Request.Form(“formgade”)
End If
%>
<%
Dim pegatest
Dim pegatest_cmd
Dim pegatest_numRows
Set pegatest_cmd = Server.CreateObject ("ADODB.Command")
pegatest_cmd.ActiveConnection = MM_pegasusDB_STRING
pegatest_cmd.CommandText = "SELECT * FROM qBeboere WHERE formnavn = ? and formgade = ?"
pegatest_cmd.Prepared = true
pegatest_cmd.Parameters.Append pegatest_cmd.CreateParameter("param1", 200, 1, 255, pegatest__navnparam) ' adVarChar
pegatest_cmd.Parameters.Append pegatest_cmd.CreateParameter("param2", 200, 1, 255, pegatest__gadeparam) ' adVarChar
Set pegatest = pegatest_cmd.Execute
pegatest_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
pegatest_numRows = pegatest_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1250" />
<title>Untitled Document</title>
</head>
<body>
<form id="form1" name="form1" method="get" action="pegatest.asp">
<table width="300" border="0" cellspacing="0" cellpadding="2">
<tr>
<td>Navn:</td>
<td><label>
<input type="text" name="formnavn" id="formnavn" />
</label></td>
</tr>
<tr>
<td>Gade:</td>
<td><input type="text" name="formgade" id="formgade" /></td>
</tr>
<tr>
<td> </td>
<td><label>
<input type="submit" name="button" id="button" value="Søg" />
</label></td>
</tr>
</table>
</form>
<p>
<table width="600" border="0" cellspacing="0" cellpadding="2">
<tr>
<td>Navn</td>
<td>Gade</td>
<td>Sal</td>
<td><p>Side</p>
</td>
</tr>
<tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT pegatest.EOF))
%>
<td><%=(pegatest.Fields.Item("Navn").Value)%></td>
<td><%=(pegatest.Fields.Item("Gade").Value)%></td>
<td><%=(pegatest.Fields.Item("Sal").Value)%></td>
<td><%=(pegatest.Fields.Item("Side").Value)%></td>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
pegatest.MoveNext()
Wend
%>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<p>
</body>
</html>
<%
pegatest.Close()
Set pegatest = Nothing
%>
