Hallå
Har fått ett litet problem som jag inte tycks kunna lösa.. Antagligen är det väll ett skitproblem som man inte ser denna tid på dygnet =)
Ska göra en simpen liten gästbok men den vägrat att ta emot värdet från mitt formulär.
Formuläret
<form action="gb.asp?do=save" method="post" name="gb">
<%
If Len(strErr) > 0 Then Response.Write strErr
%>
<table>
<tr>
<td>Namn</td>
<td><input type="text" name="namn" value="<%=Request.Form("namn")%>"></td>
</tr>
<tr>
<td>E-mail</td>
<td><input type="text" name="email" value="<%=Request.Form("email")%>"></td>
</tr>
<tr>
<td>Meddelande</td>
<td><textarea cols="50" rows="5" name="text"><%=Request.Form("text")%></textarea></td>
</tr>
<tr>
<td></td>
<td><input type="submit" value="Signa"></td>
</tr>
</table>
</form>
Där det sak tas emot
If Request.Querystring("do") = "save" Then
strNamn = FixSql(Request.Form("namn"))
strEmail = FixSql(Request.Form("email"))
strText = FixSql(Request.Form("text"))
strErr = ""
If Len(strNamn) = 0 Then strErr = "Du måste skriva ditt namn"
If Len(strText) = 0 Then strErr = strErr & "<br>Du måste ju skriva nått oxå"
If Len(strErr) = 0 Then
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open strCon
objCon.Execute "Insert Into tblGB (fldNamn, fldEmail, fldText, fldDatum) " _
& "Values('"& strNamn &"', '"& strEmail &"', '"& strText &"', '"& Now &"')"
objCon.Close
Set objCon = Nothing
Response.Redirect("gb.asp")
End If
End If
FixSql är en funktion som för texten "databassäker".
Problemet är alltså att inga värden skickas med post men om jag istället använder get och ändrar Form till Querystringfungerar det.
Ja.. fattar nada, nån som fattar lite mer än mig kanske?
Tack på förhand!!