Jag fyller i ett formulär som skickar videre till en annan sida men jag får bara upp ett fel meddelande hela tiden om "Internal server error" varför? Fick inte med den andra sidan men här kommer den. Nej, det ända som visas är: Har du laggt dina filer i www-rooten ? Du har ju skrivitVarföööör funkar det inte?
Så här ser min kod ut:
Formulär sidan:
<code>
<html>
<head>
<title>Artikel Admin</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<META NAME="robots" CONTENT="noindex, nofollow">
<link rel="stylesheet" type="text/css" href="../styles/wiktors_ie2.css">
</head>
<BODY bgColor=#ffffff>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 WIDTH=660>
<TR>
<TD colspan=2><FONT CLASS=top4>Artikel Admin - Lägga upp ny artikel</FONT></TD>
</TR>
<TR>
<TD colspan=2 height=2><IMG border=0 height=2 src="linepix.gif" width=660></TD>
</TR>
<TR>
<TD CLASS="admin">Tillbaka till Admin-startsida</TD>
</TR>
</TABLE>
<TABLE BORDER=1 BORDERCOLOR=#bdcede CELLSPACING=2 CELLPADDING=3 WIDTH=660>
<FORM ACTION="artikel_admin_reg.asp" METHOD="post">
<TR vAlign=top>
<TD align=right><B>Puff rubrik:</B>
</TD>
<TD>
<INPUT TYPE="text" NAME="rubrik1" style="WIDTH:400px">
</TD>
</TR>
<TR vAlign=top>
<TD align=right><B>Puff text:</B><br>
</TD>
<TD>
<TEXTAREA NAME="text1" rows=6 style="WIDTH:200px" cols="250">Sv: Varföööör funkar det inte?
Koden på den andra sidan:
<code>
<%
rubrik1 = Request.Form("rubrik1")
text1 = Request.Form("text1")
rubrik2 = Request.Form("rubrik2")
text2 = Request.Form("text2")
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/roos/text/mina_db/db2002.mdb")
SQL = "SELECT * FROM artiklar" 'Text = "SELECT COUNT(*) FROM [artiklar]"
rs.Open SQL, MinCon, 1, 2
rs.AddNew
'If Text = 6 Then
'Set objRecSet = objConnect.Execute("DELETE TOP 1 * FROM artiklar ORDER BY ID DESC")
'End if
rs("rubrik1")= rubrik1
rs("text1")= text1
rs("rubrik2")= rubrik2
rs("text2")= text2
'rs("datum")= date
'Set Upload = Server.CreateObject("Persits.Upload.1")
'Upload.SaveVirtual("/roos/bilder/")
'On Error Resume Next
'For Each File in Upload.Files
'File.ToDatabase "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/roos/text/mina_db/db2002.mdb"), "INSERT into artiklar(bild) values=(?)"
'if Err <> 0 Then
'Response.Write "Error saving the file: " & Err.Description
'Else
'File.Delete
'End If
rs.Close
rs = Nothing
MinCon.Close
MinCon = Nothing
Response.Write "Yes, det funkar!"
%>
</code>
Jag kan inte hitta felet, varför?
//JWSv: Varföööör funkar det inte?
The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.
--------------------------------------------------------------------------------
HTTP 500 - Internal server error
Internet Explorer Sv: Varföööör funkar det inte?
Prova att skriv:
Server.MapPath("db2002.mdb")
istället för:
Server.MapPath("/roos/text/mina_db/db2002.mdb") Sv: Varföööör funkar det inte?
<code>
<TEXTAREA NAME="text1" rows=6 style="WIDTH:200px" cols="250">
</code>
Men på den andra sidan står det
<code>
rubrik1 = Request.Form("rubrik1")
</code>
Kanske skulle fixa det...?