Jeg har set mig blind på dette !

Er det i begge tabeller at den ikke lægger noget i ??

Jeps der sker ikke noget i nogen af dem !

/websam

Prøv med :
  Sql = \"INSERT INTO Topics (fldForumId, fldUserName, fldTitle, fldMessage, fldFace, fldSendEmail) Values (\"
  Sql = Sql & Request.Form(\"ForumId\") & \",\"
  Sql = Sql & \"\'\" & Request.Form(\"UserName\") & \"\',\"
  Sql = Sql & \"\'\" & Request.Form(\"Title\") & \"\',\"
  Sql = Sql & \"\'\" & Request.Form(\"Message\") & \"\',\"
  Sql = Sql & \"\'\" & Request.Form(\"Face\") & \"\',\"
  Sql = Sql & intSendEmail & \")\"
  Conn.Execute(Sql)

Jeg mener ikke det er tilladt at lave udregninger i en UPDATE-forespørgsel, men er ikke sikker.

Hej larsen !

Det første du skrev hjalp ikke noget og hvad
det andet angår så har jeg andre script der
ligger 1 til et felt i en UPDATE-forespørgelse
så det burde oxo virke her !

/websam

Er fldForumId et numerisk felt ? For så kan det være du skal prøve at ændre linien til :
Sql = Sql & CInt(Request.Form(\"ForumId\")) & \",\"

Har du en \"On Error Resume Next\" - linie i dit script ?

Jeps det er tal felt så jeg fatter ikke hvorfor
der ikke indsættes ! Jeg har prøvet alt efter
hånden og ingenting hjælper !

/websam

Jeg sidder lige og kigger på et af mine egne scripts og der er det numeriske felt også inrammet af \'

  Sql = \"INSERT INTO Topics (fldForumId, fldUserName, fldTitle, fldMessage, fldFace, fldSendEmail) Values (\"
  Sql = Sql & \"\'\" & Request.Form(\"ForumId\") & \"\',\"
  Sql = Sql & \"\'\" & Request.Form(\"UserName\") & \"\',\"
  Sql = Sql & \"\'\" & Request.Form(\"Title\") & \"\',\"
  Sql = Sql & \"\'\" & Request.Form(\"Message\") & \"\',\"
  Sql = Sql & \"\'\" & Request.Form(\"Face\") & \"\',\"
  Sql = Sql & \"\'\" & intSendEmail & \"\')\"
  Conn.Execute(Sql)

Nej det er der ikke !

/websam

Det hjælper heller ikke noget !

/websam

Vil den udføre opgaven hvis du laver forespørgslen inde i DB\'en ??

Hvis det er kan du jo sende mig DB\'en, så skal jeg kigge på det : ulrik@post9.tele.dk

Den skulle du have nu !

/websam

Ok, jeg venter på den kommer :-)

Jeg har lige prøvet at oprette en formular
db´en og der indsætter den fint det den skal.

/websam

Jeg har ikke modtaget din DB endnu.

Hvordan ser din forespørgsel så ud i SQL-visningen inde i Access ?

Hvor er det lige jeg ser det henne ?

/websam

Ude i venstre side er der forskellige muligheder (tabeller/forespørgsler/formularer etc) og der vælger du forespørgelser.
Nå du så åbner din forespørgsel i designvisning vælger du oppe i venstre hjørne \"SQL-visning\"

Jeg kan ikke sende til din mail add er det den
rigtige du skrev tidligere +

/websam

Sådan så skulle du have den prøvede lige med en anden mail add :-)

/websam

Jeps. Det er det.

Jeg har lige modtaget den :-)

Hvordan ser din connection-streng egentlig ud i scriptet ??

Som følger :

Set Conn = Server.CreateObject(\"ADODB.Connection\")
  Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\\Udvikling\\forum\\Forum.mdb\"

Og det er jo ok da den ellers ville melde fejl !

/websam

Hvad hvis du ændre din conn.execute til :
  Set Rs=Conn.Execute(Sql)

Det har jeg prøvet og det hjælper heller ikke :-(

/websam

Her virker det udemærket.
Her er det script jeg hurtigt stykkede sammen :

<%
    \'Opret DSN-less forbindelse til AccessDB med Server.MapPath
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"/Sti/Til/Din/Forum.mdb\")

If Request.Form(\"Method\") = \"Topic\" Then
  If Request(\"SendEmail\") = \"Yes\" Then   
      intSendEmail = 1
  Else
      intSendEmail = 0
  End If
  Sql = \"INSERT INTO Topics (fldForumId, fldUserName, fldTitle, fldMessage, fldFace, fldSendEmail) Values (\"
  Sql = Sql & \"\'\" & Request.Form(\"ForumId\") & \"\',\"
  Sql = Sql & \"\'\" & Request.Form(\"UserName\") & \"\',\"
  Sql = Sql & \"\'\" & Request.Form(\"Title\") & \"\',\"
  Sql = Sql & \"\'\" & Request.Form(\"Message\") & \"\',\"
  Sql = Sql & \"\'\" & Request.Form(\"Face\") & \"\',\"
  Sql = Sql & \"\'\" & intSendEmail & \"\')\"
    Conn.Execute(Sql)
 
  Sql = \"UPDATE Forum SET fldLastPost = #\" & now() & \"#, fldCount = fldCount +1 WHERE fldForumId = \" & Request.Form(\"ForumId\")
    Conn.Execute(Sql)
End If
%>

<html>

<head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>ForumId</title>
</head>

<body>

<form method=\"POST\">
    <input type=\"hidden\" name=\"Method\" value=\"Topic\" size=\"20\">
    <TABLE>
        <TR>
            <TD>ForumId :<TD><input type=\"text\" name=\"ForumId\" size=\"20\">
        <TR>
            <TD>Username :<TD><input type=\"text\" name=\"UserName\" size=\"20\">
        <TR>
            <TD>Title :<TD><input type=\"text\" name=\"Title\" size=\"20\">
        <TR>
            <TD>Message :<TD><input type=\"text\" name=\"Message\" size=\"20\">
        <TR>
            <TD>Face :<TD><input type=\"text\" name=\"Face\" size=\"20\">
        <TR>
            <TD>SendEmail :<TD><input type=\"text\" name=\"SendEmail\" value=\"Yes\" size=\"20\">
        <TR>
  <input type=\"submit\" value=\"Send\" name=\"B1\"><input type=\"reset\" value=\"Nulstil\" name=\"B2\">
</form>

</body>

Ser du med den kode lige sendte virker det fint
men ikke med min egen side !
Du bliver nød til at svare på dette indlæg
for at jeg kan give dig point !
og så må jeg rode vidre med at få min egne sider
til at virke !

/websam

Ok. Her er svaret.
Held og lykke med det. Du kan bare sige til en anden gang.. :-)

Det vil jeg gøre ! Og tak :-)

/websam