Min tagwall melder pas
Hej! Jeg har et problem! Jeg har oprette en tagwall med den vil ikke sende fra den, den melder at jeg skal skrive Brugernavn og Password (hvordan fjerner jeg det) og...når jeg så har skrevet brugernavn og Password, siger den at jeg skal skrive noget i tagwallen og i emnet, selvom at der skår en masse!
ASP-SCRIPET SER SÅDAN UD:
<%
Dim brugernavn, password, tagwall, Conn
Set Conn = Server.CreateObject(\"ADODB.Connection\")
if( Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" ) then
brugernavn = request.form(\"brugernavn\")
password = request.form(\"password\")
emne = request.form(\"emne\")
tagwall = request.form(\"admintagwall\")
SQL = \"SELECT COUNT(*) AS count FROM bruger WHERE brugernavn = \'\" & brugernavn & \"\' AND password = \'\" & password & \"\'\"
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../database.mdb\") & \";UID=admin;PWD=;\"
Set RS = Conn.Execute( SQL )
if( RS(\"count\") > 0 ) then
if( LEN(TRIM(tagwall)) > 0 And len(trim(emne)) > 0 ) then
SQL = \"INSERT INTO tagwall (brugernavn, emne, tagwall, dato) VALUES (\'\" & brugernavn & \"\',\'\" & emne & \"\',\'\" & tagwall & \"\',\'\" & date() & \"\')\"
Conn.Execute( SQL )
response.redirect \"tagwall_write.asp\"
else
response.write \"<span class=\'skrift\'><font color=\'#FF3300\'>Du har glemt at skrive i Emne feltet eller Tagwall feltet !</font></span>\"
end if
else
response.write \"<span class=\'skrift\'><font color=\'#FF3300\'>Fejl brugernavn eller password.</font></span>\"
end if
end if
%>
Håber at du kan hjælpe!
:) - MSira
