Fejl???
Hejjeg har prøvet på at lave et system til noget bil sjov.. Det gør ud på at man skriver nogle data'er i en formular og så bliver det skrevet i en database, lidt ala en tagwall...
Men jeg kan ikke forstå hvad der er galt
Den melder serverfejl "500" når jeg viser den på friserverplads.dk
Scriptet ser således ud, i må sige til hvis i skal se databasen...
<html>
<head>
<title></title>
</head>
<body>
<%
Response.Expires = 0
response.buffer = true
side = Request.QueryString("side")
Function Dato(date)
Dato = day(date) & "/" & month(date) & "-" & year(date)
End Function
Function LinkTekst(Tekst)
LinkTekst = ""
A_Start = 1
if InStr(Tekst, "www") then
do until A_Start >= len(Tekst)
LinkChr = InStr(A_Start, Tekst, "www")
NextSpace = InStr(LinkChr, Tekst, "" & "<br>")
if NextSpace = 0 then NextSpace = Len(Tekst) + 1
URL = Mid(Tekst, LinkChr, NextSpace - LinkChr)
LinkTekst = LinkTekst & Mid(Tekst, A_Start, LinkChr - A_Start)
LinkTekst = LinkTekst & "<A Href=http://" & URL & ">" & URL & "</A>"
if Int(LinkChr) = Int(InStrRev(Tekst, "www")) then
LinkTekst = LinkTekst & Mid(Tekst, NextSpace, Len(Tekst) - A_Start)
A_Start = Len(Tekst)
else
A_Start = NextSpace
end if
loop
else
LinkTekst = Tekst
end if
End Function
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("biler.mdb")
%>
<p align="center"><b><font face="Verdana" size="2"></font></b></p>
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="514" id="AutoNumber2" height="108">
<tr>
<td width="135" height="19"><font face="Verdana" size="1">D.</font> <%=Dato(rs("dato"))%></td>
<td width="285" height="19"> </td>
<td width="90" height="19"><%=rs("in")%> </td>
</tr>
<tr>
<td width="135" height="19"><%=rs("regnr")%> </td>
<td width="285" height="19"><%=rs("fabrikat")%> <%=rs("model")%> <font face="Verdana" size="1">fra</font> <%=rs("aargang")%></td>
<td width="90" height="19"> </td>
</tr>
<tr>
<td width="135" height="48"> </td>
<td width="285" height="48" valign="top"><%=rs("div")%></td>
<td width="90" height="48"> </td>
</tr>
<tr>
<td width="135" height="19"><%=rs("km")%> <font face="Verdana" size="1">Km</font></td>
<td width="285" height="19"> </td>
<td width="90" height="19"><%=rs("bud")%> <font face="Verdana" size="1">Kr.</font></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<%
rs.movenext
loop
end if
%>
<%
end if
%>
<%
if side = "skriv_tag" then
set instillinger = conn.execute("SELECT * FROM instillinger")
%>
<%
if side = "" then
set instillinger = conn.execute("SELECT * FROM instillinger")
set rs = conn.execute("SELECT * FROM tags ORDER BY id DESC")
if rs.eof or rs.bof then
response.write("<p><font face='verdana' size='2'>Der er igen biler i systemet :´-(</font></p><p><a href='?side=skriv_tag'><font face='verdana' size='1' color='#000000'>Opret tag</font></a></p>")
else
response.write ("<p><a href='?side=skriv_tag'><font face='verdana' size='1' color='#000000'>Opret bil</font></a></p>")
do until rs.eof
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="42%" id="AutoNumber1" height="176">
<tr>
<td width="3%" height="19"><font face="Verdana" size="2">Reg nr.</font></td>
<td width="40%" height="19"><input type="text" name="regnr" size="20"></td>
</tr>
<tr>
<td width="3%" height="19"><font face="Verdana" size="2">Fabrikat</font></td>
<td width="40%" height="19"><input type="text" name="fabrikant" size="20"></td>
</tr>
<tr>
<td width="3%" height="19"><font face="Verdana" size="2">Model</font></td>
<td width="40%" height="19"><input type="text" name="model" size="20"></td>
</tr>
<tr>
<td width="3%" height="19"><font face="Verdana" size="2">Årgang</font></td>
<td width="40%" height="19"><select size="1" name="aargang">
<option>1980</option>
<option>1981</option>
<option>1982</option>
<option>1983</option>
<option>1984</option>
<option>1985</option>
<option>1986</option>
<option>1987</option>
<option>1988</option>
<option>1989</option>
<option>1990</option>
<option>1991</option>
<option>1992</option>
<option>1993</option>
<option>1994</option>
<option>1995</option>
<option>1996</option>
<option>1997</option>
<option>1998</option>
<option>1999</option>
<option>2000</option>
<option>2001</option>
<option>2002</option>
</select></td>
</tr>
<tr>
<td width="3%" height="19"><font face="Verdana" size="2">Km</font></td>
<td width="40%" height="19"><input type="text" name="km" size="20"></td>
</tr>
<tr>
<td width="3%" height="19"><font face="Verdana" size="2">Div</font></td>
<td width="40%" height="19">
<font size="1" face="Verdana">
<textarea name="div" rows="6" cols="23" style="border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"></textarea></td>
</tr>
<tr>
<td width="3%" height="19"><font face="Verdana" size="2">Bud</font></td>
<td width="40%" height="19"><input type="text" name="bud" size="20"></td>
</tr>
<tr>
<td width="3%" height="19"><font face="Verdana" size="2">IN</font></td>
<td width="40%" height="19"><input type="text" name="in" size="20"></td>
</tr>
<tr>
<td width="43%" height="19" colspan="2">
<p align="center">
<font size="1" face="Verdana">
<input type="submit" name="Submit" value="Indsæt bud" style="border: 1px solid #000000; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1; "></font></td>
</tr>
</table>
</center>
</div>
<%
end if
%>
<%
if side = "opret_tag" then
if (Server.HTMLEncode(Request("regnr")) = "" OR Server.HTMLEncode(Request("bud")) = "" OR Server.HTMLEncode(Request("in")) = "") then
response.write ("<p><font face='verdana' size='2'>Hvad med at skrive noget?</font><br><font face='Tahoma' size='1' color='#FF0000'>Reg. nr, Bud og IN <u>SKAL</u> udfyldes!<p><a href='java script:history.back(-1)'><font face='verdana' size='1' color='#000000'>Skriv nyt bud</font></a></p>")
else
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM tags"
rs.Open strSQL, Conn, 1, 3
rs.AddNew
rs("regnr") = Server.HTMLEncode(Request("regnr"))
rs("fabrikant") = Server.HTMLEncode(Request("fabrikant"))
rs("model") = Server.HTMLEncode(Request("model"))
rs("aargang") = Server.HTMLEncode(Request("aargang"))
rs("km") = Server.HTMLEncode(Request("km"))
rs("div") = Server.HTMLEncode(Request("div"))
rs("bud") = Server.HTMLEncode(Request("bud"))
rs("in") = Server.HTMLEncode(Request("in"))
rs("dato") = date()
rs.Update
response.write("<p><font face='Tahoma' size='2'>Bilen er sat i databasen ;-p</font></p><a href='?'><font face='Tahoma' size='1' color='#000000'>Se tags</font></a>")
end if
end if
%>
</body>
</html>
