søge i databasen
jeg har denne formular hvor man kan søge på 3 ting<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/database/db1.mdb")
mode = Request.QueryString("mode")
scriptname = Request.ServerVariables("SCRIPT_NAME")
%>
<html>
<head>
<title></title>
</head>
<body>
<center><font face="verdana" color="black" font face="Geneva Verdana" font size= 5px>Søg</font>
<table border=1 cellpadding=20 bgcolor=#E4E4E4>
<td>
<form name="myForm" method="get" action="/soeg_formular.asp" ENCTYPE="multipart/form-data" value="ID nummer">
Varenummer: <select name="vareNR" style="width:90px">
<%
set rs = conn.execute("select * from varenummer order by id")
do while not rs.eof
response.write "<option value='"& rs("varenr") &"'>"& rs("varenr")
rs.MoveNext
loop
%>
</select>
<INPUT TYPE="SUBMIT" VALUE="Søg">
</FORM>
<form name="myForm" method="get" action="/soeg_formular.asp" ENCTYPE="multipart/form-data" value="kunde nummer">
Kundenummer:
<select name="idnummer" style="width:90px">
<%
set rs = conn.execute("select * from fejl order by id")
do while not rs.eof
response.write "<option value='"& rs("id") &"'>"& rs("id")
rs.MoveNext
loop
%>
</select>
<INPUT TYPE="SUBMIT" VALUE="Søg">
</FORM>
<form name="myForm" method="get" action="/soeg_formular.asp" ENCTYPE="multipart/form-data" value="kunde nummer">
Kundenummer:
<select name="fuldfort" style="width:90px">
<%
set rs = conn.execute("select * from fejl order by id")
do while not rs.eof
response.write "<option value='"& rs("ansvarlig") &"'>"& rs("ansvarlig")
rs.MoveNext
loop
%>
</select>
<INPUT TYPE="SUBMIT" VALUE="Søg">
</FORM>
</body>
</html>
og så denne side hvor svaret kommer. men jeg har nogle problemer mht. hvordan man bruger if ? = then
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("/database/db1.mdb")
mode = Request.QueryString("mode")
scriptname = Request.ServerVariables("SCRIPT_NAME")
if request("vareN"") = true then
Set RS = Conn.Execute("SELECT * FROM fejl WHERE varenummer=" & request.querystring("vareNR"))
else
end if
if request.querystring("idnummer") = true then
Set RS = Conn.Execute("SELECT * FROM fejl WHERE idnummer=" & request.querystring("idnummer"))
else
end if
%>
<html>
<head>
</head>
<title>Fejlrapport - Kjærulff</title>
<body bgcolor="white">
<%
Do
response.write "<table border=1 bordercolor=lightgrey bgcolor=white>"
response.write "<tr>"
response.write "<td border=1 width=100>ID nr.:</td>"
response.write "<td width=400>"
Response.Write rs("id") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td border=1>Kunde:</td>"
response.write "<td width=400>"
Response.Write rs("kundenummer") & "<br>"
response.write "</td>"
response.write "</tr>"
response.write "</table>"
response.write "<hr width=520 align=left color=darkblue>"
set rs2 = conn.execute("select * from filer where idnummer="& rs("id"))
while not rs2.eof
response.write "<a href="""& rs2("url") &""">"& rs2("url") &"</a>"
response.write " | "
rs2.movenext
wend
rs.MoveNext
Loop While Not rs.EOF
%>
</body>
</html>
