Varföööör funkar det inte?
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?
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">
Svara
Sv: Varföööör funkar det inte?
Fick inte med den andra sidan men här kommer den.
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?
//JW
Svara
Sv: Varföööör funkar det inte?
Nej, det ända som visas är:
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
Svara
Sv: Varföööör funkar det inte?
Har du laggt dina filer i www-rooten ?
Prova att skriv:
Server.MapPath("db2002.mdb")
istället för:
Server.MapPath("/roos/text/mina_db/db2002.mdb")
Svara
Sv: Varföööör funkar det inte?
Du har ju skrivit
<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...?
Svara