hallå...
jag hittade nyligen ett gammalt forum som jag gjort en gång i tiden....
(som alltid funkat) men nu när jag testar det så går det inta att lägga till svar...
jag får inget felmedelande eller nåt...
den bara vägrar att lägga till....
<form method="post" action="visa.asp">
<p style="margin-left: 2; margin-right: 2; margin-top: 0; margin-bottom: 0">
<INPUT TYPE="hidden" NAME="svarsid" VALUE="<%=Request.querystring("id")%>">
Namn:<br>
<input type="text" class="text" name="skribent" value="namn" maxlength="25" size="25" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1px">
<input type="submit" class="knapp" name="Submit" value="- Skicka -" style="background-color: #FFFFFF; font-family: Verdana; font-size: 8pt">
<br>
Epost:<br>
<input type="text" class="text" name="mail" value="mail" maxlength="50" size="40" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1px">
<br>
Rubrik:<br>
<input type="text" class="text" name="rubrik" value="SVAR:" size="40" maxlength="50" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1px">
<br>
svar:<br>
<textarea name="text" class="text" cols="40" rows="5" style="font-family: Verdana; font-size: 8pt; border-style: solid; border-width: 1px"></textarea>
<p style="margin-left: 2; margin-right: 2; margin-top: 0; margin-bottom: 0">
<br>
</p>
</form>
<font face="Verdana" size="1">
<%
End If
IF request("text") <> "" Then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db.mdb")
' ################# plussa på antal svar börjar här ##########################
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM forum WHERE id LIKE "& Request.form("svarsid")
RecSet.Open SQL, Connect, adOpenStatic, adLockOptimistic
svarCount = RecSet("svar")
svarCounted = svarCount + 1
RecSet("svar") = svarCounted
RecSet.Update
RecSet.Close
Set RecSet = Nothing
' ########################### och slutar här ############################
' ###################### här börjar läggtill rästen av infon ####################
function fix(str)
str=replace(trim(str),"'","''")
fix=trim(str)
end function
SQL = "insert into forum([mail], [text], rubrik, skribent, ip, svarsid, [date]) "_
& "values ('"& request("mail") &"', '"& request("text") &"', '"& request("skribent") &"', '"& request("remote_adder") &"', '"& request("svarsid") &"', #"& now &"#)"
connect.execute sql
Connect.Close : Set Connect = Nothing
Response.Redirect "forum.asp"
END IF
%>
response.write "Före if request("text") /" & request.text & "/"
IF request("text") <> "" Then
response.write "Efter if request("text") /"
Om du då inte får ut texten "Efter if request " så kan du se att du aldrig gör något databasanrop
Det troliga är att något villkor inte längre uppfylls beroende på olika parametervärden och då kan du ringa in vilket villkor det är och varför det inte uppfylls.
Du får väl fortsätta och lägga till utskrifter och då längre upp i koden. Kontrollera om du över huvud taget kommer till sidan, sedan får du arbeta dig längre och längre fram i koden.
jag lyckades fixa det genom att lägga allat på en separat sida... asså allt som hade med själva sparandet att göra...
men tack så mycket för hjälpen...
