"Sidan kan inte visas". Varför!??!

[Martina]

Jag blir snart galen, vad har hänt med min sida? Har ett vanligt formulär som jag kan lägga till text i till min sida och det har fungerat utmärkt, men nu helt plötsligt så funkar det inte längre. Istället kommer sidan HTTP 500 - Internt serverfel upp och så står det att Sidan kan inte visas.

 

Sidan finns visst!!

 

Är jag korkad som missat nåt, eller vad har hänt?

 

Här är senastenytt.asp med formuläret

 

[log]

<% session.LCID=1053%>

<%if not session("status")="okej" then response.Redirect("login.asp")%>

<%'Ansluter till databasen

Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("notiscounter.mdb")

%>

<!-- #Include file="admall.asp" -->

 

<table align="center" width="600" border="0">

<tr>

<td align="center" height="50">

<h3>Skriv nya notiser till f&ouml;rstasidan</h3>

<hr width="500" size="1" color="#000000"></div></td>

<%

sql = "SELECT * FROM senaste"

set rs2 = connect.execute(sql)

%>

</tr>

<tr>

<td>

<div class="bread">

<form action="add_senaste.asp" method="post" name="formsenaste">

<table width="396" border="0" cellpadding="0" cellspacing="0">

<tr>

<td colspan="2">

<div class="bold">Notis 1</div>

</td>

</tr>

<tr>

<td width="135" height="15" valign="top"><div class="bread">Rubrik:</div></td>

<td valign="top"><input name="notis_rubrik1" type="text" size="20" value="<%=rs2("notis_rubrik1")%>"></td>

</tr>

<tr>

<td height="80" valign="top"><div class="bread">Notis:<br> (max 150 tecken)</div></td>

<td valign="top"><textarea name="notis_mess1" cols="25" rows="6"><%=rs2("notis_mess1")%></textarea>

<br>

<input name="rensa" type="reset" value="Rensa" class="submit" onclick="return confirmSubmit()">

</td>

</tr>

<tr>

<td colspan="2">&nbsp;</td>

</tr>

<tr>

<td colspan="2">

<div class="bold">Notis 2</div>

</td>

</tr>

<tr>

<td width="135" height="15" valign="top"><div class="bread">Rubrik:</div></td>

<td valign="top"><input name="notis_rubrik2" type="text" size="20" value="<%=rs2("notis_rubrik2")%>"></td>

</tr>

<tr>

<td height="80" valign="top"><div class="bread">Notis:<br> (max 150 tecken)</div></td>

<td valign="top"><textarea name="notis_mess2" cols="25" rows="6"><%=rs2("notis_mess2")%></textarea>

<br>

<input name="rensa" type="reset" value="Rensa" class="submit" onclick="return confirmSubmit()">

</td>

</tr>

<tr>

<td colspan="2" align="right">

<input name="skicka" type="submit" value="Skicka inläggen!">

</td>

</tr>

</table>

</form>

</div>

</td>

</tr>

</table>

<!-- #Include file="admallner.asp" -->

<% connect.close %>

[/log]

 

Och add_senaste.asp ser ut så här...alltså den som tydligen "inte finns".

 

[log]<%'Ansluter till databasen

Set Connect = Server.CreateObject("ADODB.Connection")

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("notiscounter.mdb")

 

notis_rubrik1 = Request.Form("notis_rubrik1")

notis_mess1 = Request.Form("notis_mess1")

notis_rubrik2 = Request.Form("notis_rubrik2")

notis_mess2 = Request.Form("notis_mess2")

 

'Ta bort all HTML

notis_rubrik1 = replace(notis_rubrik1, "'", "´")

notis_rubrik1 = replace(notis_rubrik1, "<", "&lt;")

notis_rubrik1 = replace(notis_rubrik1, ">", "&gt;")

notis_mess1 = replace(notis_mess1, "'", "´")

notis_mess1 = replace(notis_mess1, "<", "&lt;")

notis_mess1 = replace(notis_mess1, ">", "&gt;")

notis_mess1 = replace(notis_mess1, vbcrlf, "<br>")

 

notis_rubrik2 = replace(notis_rubrik2, "'", "´")

notis_rubrik2 = replace(notis_rubrik2, "<", "&lt;")

notis_rubrik2 = replace(notis_rubrik2, ">", "&gt;")

notis_mess2 = replace(notis_mess2, "'", "´")

notis_mess2 = replace(notis_mess2, "<", "&lt;")

notis_mess2 = replace(notis_mess2, ">", "&gt;")

notis_mess2 = replace(notis_mess2, vbcrlf, "<br>")

 

'Tillåt att göra fet stil

notis_mess1 = replace(notis_mess1, "&lt;strong&gt;", "<strong>")

notis_mess1 = replace(notis_mess1, "", "<strong>")

notis_mess1 = replace(notis_mess1, "&lt;/strong&gt;", "</strong>")

notis_mess1 = replace(notis_mess1, "&", "</strong>")

 

notis_mess2 = replace(notis_mess2, "&lt;strong&gt;", "<strong>")

notis_mess2 = replace(notis_mess2, "", "<strong>")

notis_mess2 = replace(notis_mess2, "&lt;/strong&gt;", "</strong>")

notis_mess2 = replace(notis_mess2, "&", "</strong>")

 

'Lägger till en ny post

sql = "UPDATE senaste SET notis_rubrik1 = '" & notis_rubrik1 & "', notis_mess1 = '" & notis_mess1 & "', notis_rubrik2 = '" & notis_rubrik2 & "', notis_mess2 = '" & notis_mess2 & "', notis_rubrik3 = '" & notis_rubrik3 & "', notis_mess3 = '" & notis_mess3 & "';"

set rs2 = Connect.execute(sql)

 

Connect.close

%>

<html>

<head>

<title>Untitled Document</title>

</head>

<body>

<script language="JavaScript">

window.alert('Du har nu lagt till nya notiser')

window.location.href = "adminmain.asp";

</script>

</body>

</html>[/log]

 

[Anjuna Moon]

Slå på detaljerade felmeddelanden i din webbläsare så får du ett ordentligt felmeddelande som hjälper till i felsökningen. I IE kryssar du bort värdet Show friendly HTTP-messages i Internet Options->Advanced

 

[Martina]

Okej, nu får jag ett riktigt felmeddelande... fast jag blir inte så mycket klokare dock...

 

Microsoft VBScript compilation error '800a0409'

 

Unterminated string constant

 

/add_senaste.asp, line 39

 

sql = "UPDATE senaste SET notis_rubrik1 = '" & notis_rubrik1 & "', notis_mess1 = '" & notis_mess1 & "', notis_rubrik2 = '" & notis_rubrik2 & "', notis_mess2 = '" & notis_mess2 & "'

 

[Mr Andersson]

Lägg till ett " allra sist.

 

 

[Martina]

Aaah... att det var så enkelt! Tusen tack!