tagwall

det er jo bare:
Response.Redirect(\"default.asp\")
der skal skiftes ud med:
Response.Redirect(\"tagwall.asp\")

hmmm... tagwall-ens forsiden hedder default.asp og desuden skriver den slet ikke i databasen! Denne kommer ikke så langt! Men nu ser det ud til at jeg MÅSKE har fundet fejlen selv...

= strSQL = \"Select * From gaestebogen\"
= strSQL = \"Select * From tagwall\"

og i stedet for

Request.form(\"navn\")
Request.QueryString(\"navn\")

jeg er ikke hjemmet lige nu men jeg retter det så snart jeg kommer hjem! Så kan jeg se om fejlen ligger der!

-Deaz

Nu ha jeg lavet det lidt om! Men dur ikke den giver mig ikke adgang til DB\'en



--http://zqueek.trab.dk/tagwall/tilfoj_tag.asp--

<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>navn</title>
</head>

<body>


<%

Response.Expires = 0

If Request.Servervariables(\"Query_String\") <> \"\" then

Response.write(\"navn: \" & Request.QueryString(\"navn\") & \"<br>\")
Response.write(\"email: \" & Request.QueryString(\"email\") & \"<br>\")
Response.write(\"besked: \" & Request.QueryString(\"besked\") & \"<br>\")

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"tagwall.mdb\") & \";UID=admin;PWD=;\"
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From tagwall\"
    rs.Open
   
      rs.AddNew
        rs(\"navn\") = Request.QueryString(\"navn\")
        rs(\"email\") = Request.QueryString(\"email\")
        rs(\"besked\") = Request.QueryString(\"besked\")
      rs.Update
     
    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing

Response.Redirect(\"default.asp\")

Else %>

<form action=\"tilfoj_tag.asp\" method=\"get\">
<div align=\"center\">
  <center>
  <table border=\"0\" width=\"350\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"0\">
    <tr>
      <td width=\"100%\">
        <table border=\"0\" width=\"100%\" bgcolor=\"#FFFFFF\" cellspacing=\"0\" cellpadding=\"10\">
          <tr>
            <td width=\"100%\">
              <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\" height=\"79\">
                <tr>
                  <td width=\"24%\" height=\"19\"><font size=\"2\" face=\"Verdana\">navn:</font></td>
                  <td width=\"76%\" height=\"19\"><input name=\"navn\"></td>
                </tr>
                <tr>
                  <td width=\"24%\" height=\"20\"><font size=\"2\" face=\"Verdana\">email</font></td>
                  <td width=\"76%\" height=\"20\"><input name=\"email\"></td>
                </tr>
                <tr>
                  <td width=\"24%\" height=\"20\"><font size=\"2\" face=\"Verdana\">besked:</font></td>
                  <td width=\"76%\" height=\"20\"><textarea name=\"besked\" rows=\"6\" cols=\"28\"></textarea></td>
                </tr>
                <tr>
                  <td width=\"24%\" height=\"20\"></td>
                  <td width=\"76%\" height=\"20\"><input type=\"submit\" value=\"Send\"></td>
                </tr>
              </table>
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
  </center>
</div>
</form>

<% end if %>

</body>
</html>

-----------------------------------------

-Deaz

...altså når man prøver at skrive til den!

du glemmet lige at åbne de forskellige ting som skal bruges

Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"tagwall.mdb\") & \";UID=admin;PWD=;\"
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From tagwall\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

det er rs.Open jeg kun har lavet om på, men det var nok lettere for dig hvis jeg skrev det hele :)

Wolla min Ven

Er du sikker på at du har user og password på databasen?

Dj-dos

----------------------
navn: Deaz
email: Deaz@zqueek.dk
besked: test!!!

Microsoft OLE DB Provider for ODBC Drivers error \'80004005\'

[Microsoft][ODBC Microsoft Access Driver] Cannot update. Database or object is read-only.

/tagwall/tilfoj_tag.asp, line 36

---------------------

-Deaz

kontakt din udbyder for det er sikkert fordi du ikke kan opdatere i databasen, men kun læse hvad der står i den.

ok det prøver jeg!

Her har du 30 for at prøve at hjælpe :) trab.dk svarede ikke på mit spørgsmål så. Men jeg fandt en anden side www.friserverplads.dk . Men tak fordi du prøvede at hjælpe :)

- Deaz

så lidt da :)