Fejl ved hentning af data
Hej!Jeg har en side hvorpå man kan indtaste et nummer. Dette nummer skal så bruges på en anden side til at hente data i en tabel med dette nummer og udfylde formular felterne med dataerne fra posten.
Men når jeg indtaster et nummer og trykker Hent får jeg bare en Siden kan ikke vises, http 500 Intern Serverfejl
Hvad har jeg gjort galt?
Filerne:
udr_create.asp:
<font face="Verdana">Rediger udrykning</font><br>
</font></b></p>
<form method="POST" action="udr_change.asp">
<p align="center"><font face="Verdana"><b>
<font size="2" color="#666666">Nr </font></b><font color="#666666">
<input name="Nr" size="5"></font><b><font size="2" color="#666666">
</font></b>
<font color="#666666">
<input type="submit" value="Hent" name="SendNr"></font></font></p>
</form>
udr_change.asp:
<% Response.Buffer = True %>
<% PostUdrNr = Request.Form("Nr")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../db/udrykninger.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/udrykninger.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM udrykninger WHERE UdrNr ='PostUdrNr'"
rs.Open strSQL, Conn, 1
rs("Dato") = Dato
rs("Sted") = Sted
rs("kommune") = Kommune
rs("Melding") = Melding
rs("Tekst") = Tekst
rs("Fra") = Fra
rs("UdrNr") = UdrNr
%>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<title>Rediger udrykning</title>
<link rel="stylesheet" type="text/css" href="../cssdesign/design01.css">
</head>
<body topmargin="10" leftmargin="0" rightmargin="0">
<center>
<h2>Herunder kan du redigere en udrykning</h2>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber1" width="506">
<tr>
<td width="506"><form method="POST" action="udr_update.asp?Udr=<%=PostUdrNr%>">
<table border="0" width="102%">
<tr>
<td width="25%">
<font face="Verdana" color="#666666" size="2"><b>Dato / Tid (DD-MM-ÅÅÅÅ TT:MM)</b></font>
</td>
<td width="2%"> </td>
<td width="49%">
<font face="Verdana" color="#666666" size="2"><b>Melding</b></font>
</td>
</tr>
<tr>
<td width="25%">
<input type="text" name="NyDato" size="33" value="<%=Dato%>"></td>
<td width="2%"> </td>
<td width="49%">
<input type="text" name="NyMelding" size="33" value="<%=Melding%>"></td>
</tr>
<tr>
<td width="25%"><b><font face="Verdana" color="#666666" size="2">Sted</font></b></td>
<td width="2%"> </td>
<td width="49%">
<font face="Verdana" color="#666666" size="2"><b>Kommune</b></font>
</td>
</tr>
<tr>
<td width="25%">
<input type="text" name="NyAdresse" size="33" value="<%=Sted%>"></td>
<td width="2%"> </td>
<td width="49%"><select size="1" name="NyKommune">
<% If Kommune = "Ringsted Kommune" THEN %>
<option value="Ringsted Kommune" selected>Ringsted</option>
<option value="Suså Kommune" >Suså</option>
<% Elseif Kommune = "Suså Kommune" THEN %>
<option value="Ringsted Kommune">Ringsted</option>
<option value="Suså Kommune" selected>Suså</option>
<% End If %>
</select></td>
</tr>
<tr>
<td width="25%">
<font face="Verdana" color="#666666" size="2"><b>Tekst</b></font>
</td>
<td width="2%"> </td>
<td width="49%"><font face="Verdana" color="#666666" size="2"><b>Modtaget fra</b></font></td>
</tr>
<tr>
<td width="25%" rowspan="5"><textarea rows="4" name="NyTekst" cols="27"><%=Tekst%></textarea></td>
<td width="2%" rowspan="5"> </td>
<td width="49%"><select size="1" name="NyFra">
<% If Fra = "112 Alarm AC Slagelse" THEN %>
<option value="112 Alarm AC Slagelse" selected>112 Alarm</option>
<option value="Ringsted Politi">Ringsted Politi</option>
<option value="VC Ringsted Brandvæsen">VC Ringsted Brandvæsen</option>
<% Elseif Fra = "Ringsted Politi" THEN %>
<option value="112 Alarm AC Slagelse">112 Alarm</option>
<option value="Ringsted Politi" selected>Ringsted Politi</option>
<option value="VC Ringsted Brandvæsen">VC Ringsted Brandvæsen</option>
<% Elseif Fra = "VC Ringsted Brandvæsen" THEN %>
<option value="112 Alarm AC Slagelse">112 Alarm</option>
<option value="Ringsted Politi">Ringsted Politi</option>
<option value="VC Ringsted Brandvæsen" selected>VC Ringsted Brandvæsen</option>
<% End If %>
</select></td>
</tr>
<td width="49%"><b><font face="Verdana" size="2" color="#666666">Udrykning Nr.</font></b></td>
</tr>
<tr>
<td width="49%">
<input type="text" name="NyUdrNr" size="4" value="<%=UdrNr%>"></td>
</tr>
<tr>
<td width="49%"></td>
</tr>
<tr>
<td width="49%"></td>
</tr>
<tr>
<td width="25%"> </td>
<td width="2%"> </td>
<td width="49%"> </td>
</tr>
<tr>
<td width="25%">
<p align="center"> </td>
</form>
<td width="2%"> </td>
<td width="49%">
</td>
</tr>
</table>
</td>
<%
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
%>
