<%
' Declaring variables
Dim message, data_source, con, sql_insert
' A Function to check if some field entered by user is empty
Function ChkString(string)
If string = "" Then string = " "
ChkString = Replace(string, "'", "''")
End Function
' Receiving values from Form
indhold = ChkString(Request.Form("indhold"))
tilbruger = ChkString(Request.Form("tilbruger"))
frabruger = ChkString(Request.Form("frabruger"))
data_source = "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddict; Password=spassersoren;"
sql_insert = "insert into pm (bruger_modt, bruger_sendt, indhold,laest) values ('"& tilbruger &"', '"& frabruger &"', '" & indhold & "',0)"
' Creating Connection Object and opening the database
Set con = Server.CreateObject("ADODB.Connection")
con.Open data_source
con.Execute sql_insert
' Done. Close the connection
con.Close
Set con = Nothing
%>
//skriver til PMS//
skriver
Tilbage til pm siden