Skriv fil

Hej

Jeg skal have en skriv fil til en tagwall op og køre. Det skal være sådan den indsætter tingene i databasen og samtidig skal den tælle hvor mange tags man skriver så den altså tæller op af for hvor mange den skriver. Jeg ville gerne hvis det kan holdes i en tabel så det er forholdsvis nemt at trække ud igen =)

Har forsøgt noget alá:

<!--#Include file="../Plus/Tid.asp"-->

<%
'tjek
if (Request.Form("Besked") = "") then
    Response.Redirect "Fejl.asp"
Else

Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/Tagwall.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
dato =  DanskDatoTid(Now)
ip = Request.ServerVariables("REMOTE_ADDR")
strSQL = "SELECT * FROM tags WHERE hvem = '" & Session("id") & "'"
Set lol = Conn.Execute(strSQL)
If not lol.eof then
Conn.Execute("Update tags SET tags = tags + 1 where hvem = '" & Session("id") & "'")
else
t = "1"
sql = "INSERT INTO tags (hvem,tags) VALUES('" & Session("id") & "'," & t & ")"
Conn.Execute(sql)
End if
strSQL = "INSERT INTO Beskeder (Brugernavn,Brugerid,Besked,dato,status,IP) VALUES('" & Session("brugernavn") & "','" & Session("id") & "','" & Request.Form("Besked") & "','" & dato & "','" & Session("status") & "','"  & IP & "')"
Conn.Execute(strSQL)
response.redirect("Tagwall.asp")
Set conn = Nothing
End if
%>


Håber i vil hjælpe =)