Ja.... det är en bra fråga... om inte b-one klarar av Access så är det nog där felet är men får du inget korrekt felmeddelande?
Frågan#1
Anledningen till att detta skript:
<%Response.Buffer = "True"
Function FixaTecken(str)
FixaTecken = Replace(Trim(str),"'","''")
End function
%>
<html>
<head>
<title>»» Kontakta oss ««</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.add.namn.value=="")
{
alert("Du måste skriva ditt namn!");
return false;
} else if (document.add.email.value=="")
{
alert("Du glömde din email!");
return false;
} else if (document.add.meddelande.value=="")
{
alert("Du glömde ditt meddelande!");
return false;
}
}
//-->
</script>
<link rel="stylesheet" href="stil.css" type="text/css">
</head>
<body bgcolor="#f0f0f0">
<% If Request.QueryString("do") = "" Then%>
<form name="add" method="post" action="kontakta.asp?do=add" onSubmit="return tecken()">
<table border="0" align="center">
<tr>
<td colspan="2"><b>Kontakta oss:</b></td>
</tr>
<tr>
<td colspan="2"><hr noshade></td>
</tr>
<tr>
<td>Namn:<br><input type="text" name="namn" size="15"></td>
<td>Email:<br><input type="text" name="email" size="25"></td>
</tr>
<tr>
<td>Icq:<br><input type="text" name="icq" size="15"></td>
<td>Hemsida:<br><input type="text" name="hemsida" size="25"></td>
</tr>
<tr>
<td colspan="2">Meddelande:<br><textarea name="meddelande" cols="43" rows="6"></textarea></td>
</tr>
<tr>
<td colspan="2"><hr noshade></td>
</tr>
<tr>
<td colspan="2"><input type="submit" value="Skicka"></td>
</tr>
<%If Session("mess") <> "" Then%>
<tr>
<td colspan="2"><hr></td>
</tr>
<tr>
<td colspan="2" align="center">
<%Response.Write Session("mess")
Session("mess") = ""%>
</td>
</tr>
<%End If%>
</table>
</form>
<%End If%>
<% If Request.QueryString("do") = "add" Then
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("kontakta.mdb")
Namn = Request.Form("namn")
Email = Request.Form("email")
Hemsida = Request.Form("hemsida")
If Hemsida <> "" Then
If Left(Hemsida,7) = "http://" Then
Hemsida = Hemsida
Else
Hemsida = "http://" & Hemsida
End If
End If
Icq = Request.Form("icq")
Meddelande = FixaTecken(Server.HTMLEncode(Request.Form("meddelande")))
Datum = Now
SQL = "Insert Into kontakta(namn,email,hemsida,icq,meddelande,datum) Values('" & Namn & "','" & Email & "','" & Hemsida & "','" & Icq & "','" & Meddelande & "',#" & Datum & "#)"
Conn.Execute(SQL)
Session("mess") = "Tackar "& Request.Form("namn") & "!<br> Meddelandet är nu skickat!"
Response.Redirect "kontakta.asp"
End If%>
</body>
</html>
Inte fungerar som det ska är alltså för att mitt webbhotell (b-one) inte stödjer Access databaser utan jag måste flytta till ett annat webbhotell!?
Koden fungerar korrekt när jag kör den med IIS men alltså inte på webservern.
har jag hittat felet?
