Jag får detta felmeddelandet:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Field 'radannonser.intresse' cannot be a zero-length string.
/brev/enter.asp, line 37
efter att jag försökt lägga in en post till genom att skriva så här i enter.htm
<html>
<head>
<title>Mata in radannonserna</title>
<link REL="STYLESHEET" TYPE="TEXT/CSS" HREF="../godzilla/mailisarmenyn.css">
<script>
<!--
if(top == self) self.location = "index.htm";
//-->
</script>
<script LANGUAGE="JAVASCRIPT">
<!--
defaultStatus ="Copyright © 2000 Costodia - All Rights Reserved ©."
// -->
</script>
<script language="JavaScript">
<!--
var message="© 2000 Costodia";
function click(e) {
if (document.all) {
if (event.button == 2) {
alert(message);
return false;
}
}
if (document.layers) {
if (e.which == 3) {
alert(message);
return false;
}
}
}
if (document.layers) {
document.captureEvents(Event.MOUSEDOWN);
}
document.onmousedown=click;
// -->
</script>
</head>
<body>
<form ACTION="enter.asp" METHOD="POST">
<table border="0" cellpadding="3" cellspacing="0">
<tr>
<td valign="top"><strong>Tjej. Kille, Man <br>
eller Kvinna?</strong></td>
<td valign="top"><b><select NAME="kategori" size="1" class="orange">
<option>Man </option>
<option>Kvinna </option>
<option>Tjej </option>
<option>Kille </option>
</select></b></td>
</tr>
<tr>
<td valign="top"><div align="right"><p><strong>Rubrik</strong></td>
<td valign="top"><b><input TYPE="TEXT" NAME="rubrik" size="20" class="text"></b></td>
</tr>
<tr>
<td valign="top"><div align="right"><p><strong>Mailtext</strong></td>
<td valign="top"><b><textarea NAME="text" rows="4" cols="26" class="text"></textarea></b></td>
</tr>
<tr>
<td valign="top" align="right"><strong>Ditt Namn</strong></td>
<td valign="top"><b><input TYPE="TEXT" NAME="namn" size="20" class="text"></b></td>
</tr>
<tr>
<td valign="top"><strong>Ålder</strong></td>
<td valign="top" class="lightblue"><select size="1" name="telefon">
<option>0-14</option>
<option>15-17</option>
<option>18-23</option>
<option>24-99</option>
</select></td>
</tr>
<tr>
<td valign="top" align="right"><strong>E-post</strong></td>
<td valign="top"><b><input TYPE="TEXT" NAME="epost" size="20" class="text"></b></td>
</tr>
<tr>
<td valign="top"></td>
<td valign="top"><input TYPE="submit" VALUE="Sätt in annonsen" class="orange"><input
TYPE="reset" VALUE="Rensa allt" class="orange"></td>
</tr>
<tr>
<td valign="top"></td>
<td valign="top"></td>
</tr>
</table>
</form>
<p><a href="../fptest/Default.htm" target="_top">Tillbaka till Costodia.coms Startsida</a></p>
<table border="0" cellpadding="0" cellspacing="0" background="pricken.gif" width="100%">
<tr>
<td><img src="9CCECEprick.gif" width="1" height="1" alt="9CCECEprick.gif (77 bytes)"></td>
</tr>
</table>
<p>Om du har fråger eller kommentarer Skicka dem till<br>
Hanna Nykvist på <a href="mailto:HannaNykvist@costodia.com">HannaNykvist@costodia.com</a>
</p>
</body>
</html>
och i enter.asp(som processar det som man matar in i enter.htm
<!--#include file="functions.asp"-->
<%
set rRubrik = Request("rubrik") ' Hämta annonsrubrien från formuläret
set rText = Request("text") ' Hämta annonstexten...
set rNamn = Request("namn") ' Hämta annonsörnamnet...
set rTelefon = Request("telefon") ' telefonnummer...
set rEpost = Request.Form("epost") ' e-postadress...
set rKategori = Request("kategori") ' kategori...
' Kontrollera värdena från formuläret
if rRubrik = "" or rText = "" then
Response.Write("<H3>Rubrik eller text saknas</H3>Du måste ha en rubrik och en annonstext till din annons!")
else
if rNamn = "" then
rNamn = "Saknas"
end if
if rTelefon = "" then
rTelefon = "Saknas"
end if
if rEpost = "" then
rEpost = "Saknas"
end if
' Skapa ett databasobjekt
set DBConnection = Server.CreateObject("ADODB.Connection")
' Anslut till databasen med en fil
DBConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\scripts\mailisar.mdb"
' Skapa SQL-satsen vi använder för att infoga data
SQLstring = "INSERT INTO radannonser (kategori, rubrik, annonstext, namn, telefon, epost) VALUES ('"& rKategori &"', '"& rRubrik &"','"& rText &"', '"& rNamn &"', '"& rTelefon &"', '"& rEpost &"')"
' Utför SQL-satsen
DBConnection.Execute(SQLstring)
Response.Write("<H3>Inmatningen lyckades!</H3>Din annons är nu inlagd.")
'Stäng databaskopplingen
DBConnection.Close
set DBConnection = Nothing
end if
%>
<html>
<head>
<title></title>
<link REL="STYLESHEET" TYPE="TEXT/CSS" HREF="../godzilla/costodiamin.css">
</head>
<body>
<p><a HREF="show.asp">Titta på annonserna</a><br>
<a HREF="enter.htm">Lägg in en ny annons</a></p>
</body>
</html>
Är det någon som ser vad jag gör för fel?
tack på förhand,
------------------
Mvh Martin Persson
Costodia.com, martinpersson.com, Merinternet.com , Sveriges.com , Sigill.net , dress.nu , mittinternet.com
[Redigerat av costodia den 31 maj 2001]
