Och här kommer koden till sidan som genererade felet.
<%Response.Buffer = "True"%>
<!--#Include file="settings.asp"-->
<html>
<head>
<title>»» Bildgalleri ««</title>
<script language="JavaScript">
<!--
function blured()
{
for (a in document.links) document.links[a].onfocus = document.links[a].blur;
}
if (document.all)
{
document.onmousedown = blured;
}
// -->
</script>
<script language="javaScript">
function tecken(){
if (document.maila.bild.value=="") {alert("Du glömde skriva namnet på bilden!");
return false;
} else if (document.maila.namn.value==""){alert("Du glömde välja underkategori!");
return false;
} else if (document.maila.bildinfo.value==""){alert("Du glömde skriva lite om bilden!");
return false;
}
}
</script>
<link rel="stylesheet" href="stil.css" type="text/css">
</head>
<body bgcolor="#f0f0f0">
<!--
************************************************
Åsa Gruvsjö © 2002
[url]www.gruvsjo.com[/url]
[email]Asa@gruvsjo.com[/email]
Fri att använda om ni låter copyrightkoden stå kvar!
************************************************
-->
<%If Request.QueryString("do") = "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
SQL = "Select Top 1 * From bilder Order By id desc"
Set RecSet = Conn.Execute(SQL)
If RecSet.EOF Then
Nynamn = 1
Else
Nynamn = RecSet("id")+1
End If
extension = right(Session("fil"),4)
' Bygger det nya filnamnet. Eftersom det exempelvis kan stå 48, så vill vi istället
' att det skall stå 00048 och det kan man göra på följande sätt:
filename = Right("00000" & trim(Nynamn), 5)
' Bygger ihop det nya filnamnet
Nytt = filename & extension
Session("nytt") = Nytt%>
<table width="400" align="center" border="0">
<tr>
<td colspan="2"><font size="2">Bildgalleriet:</font></td>
</tr>
<tr>
<td height="10" colspan="2"><img src="bilder/dot400.gif"></td>
</tr>
<form name="menyn">
<tr>
<td width="267"><font size="2">» Formulär!</font></td>
<td align="right" width="133">
<!--#Include file="meny.asp"-->
</td>
</tr>
</form>
<tr>
<td colspan="2" height="10"><img src="bilder/dot400.gif"><br></td>
</tr>
</table>
<table width="400" border="0" align="center">
<form action="skicka.asp?do=skicka" method="post" name="maila" onSubmit="return tecken()">
<tr>
<td valign="middle" width="150">
Bildens namn: <br><input type="text" name="bild" size="30" value="<%=Session("nytt")%>" disabled>
<input type="hidden" name="bild" size="30" value="<%=Session("nytt")%>"></td>
<td>Kategori: <br>
<select name="sort" onChange="self.location.href=this.options[this.selectedIndex].value;">
<option value="">-- Välj -- <%For i = 1 To kategorier%>
<option value="skicka.asp?sort=<%=Kat(i)%>" <%If Request.QueryString("sort") = Kat(i) Then Response.Write " selected"%>><%=Kat(i)%>
<%Next%>
</select></td>
<td>Underkategori: <br>
<select name="namn">
<option value="">-- Välj -- <%If Request.QueryString("sort") <> "" Then
Set RS=Conn.Execute("Select namn From galleri Where Sort='" & Request.QueryString("sort") & "' Order By namn")
Do Until RS.EOF
Response.Write Space(10) & "<option value=" & chr(34) & RS("namn") & chr(34) & ">" & RS("namn") & vbCrLf
RS.MoveNext
Loop
RS.Close
Set RS = Nothing
End If%>
</select>
</td>
</tr>
<tr>
<td colspan="3">Info om bilden: <br><textarea cols="60" rows="8" name="bildinfo"><b>Namnet på katten inkl.katalogförd titel</b>
EMS-kod
kön
Klass:
Resultat:
Domare:
</textarea></td>
</tr>
<tr>
<td height="10" colspan="3"><img src="bilder/dot400.gif"><br></td>
</tr>
<tr>
<td colspan="3"><input type="submit" name="submit" value="Skicka"></td>
</tr>
<tr>
<td colspan="3" height="10"><img src="bilder/dot400.gif"></td>
</tr>
<tr>
<td colspan="3" height="10"><a href="javascript:history.back()">Tillbaka</a></td>
</tr>
</form>
</table>
<%Conn.Close
Set Conn = Nothing
End If%>
<%If Request.QueryString("do") = "skicka" Then
UPLOAD_PATH = Server.MapPath("pics")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = Fso.getFolder(UPLOAD_PATH)
If Fso.FileExists(UPLOAD_PATH & "\" & Session("nytt")) Then
Fso.DeleteFile(UPLOAD_PATH & "\" & Session("nytt"))
Fso.MoveFile UPLOAD_PATH & "\" & Session("fil") , UPLOAD_PATH & "\" & Session("nytt")
Else
Fso.MoveFile UPLOAD_PATH & "\" & Session("fil") , UPLOAD_PATH & "\" & Session("nytt")
End If
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
Bild = Request.Form("bild")
Namn = Request.Form("namn")
Bildinfo = Request.Form("bildinfo")
SQL = "Insert Into bilder(bild,namn,bildinfo) Values('" & Bild & "','" & Namn & "','" & Bildinfo & "')"
Conn.Execute(SQL)
Response.Redirect "index.asp"
End If%>
</body>
</html>
