<%
' 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
editid = ChkString(Request.Form("MessageID"))
version = ChkString(Request.Form("version"))
dato = ChkString(Request.Form("dato"))
vs = ChkString(Request.Form("vs"))
land = ChkString(Request.Form("land"))
resultatos = ChkString(Request.Form("resultatos"))
resultatdem = ChkString(Request.Form("resultatdem"))
type = ChkString(Request.Form("type"))
Kommentar = ChkString(Request.Form("Kommentar"))
lineup = ChkString(Request.Form("lineup"))
data_source = "DRIVER={MySQL}; Server=mydb6.surf-town.net; Database=spoforum; Uid=spoaddi_php; Password=smovs;"
sql_insert = "UPDATE 16ccw SET version = '" & version & "', tidspunkt = '" & dato & "', vs = '" & vs & "', land = '" & land & "', resultatos = '" & resultatos & "', resultatdem = '" & resultatdem & "', type = '" & type & "', Kommentar = '" & Kommentar & "' , lineup = '" & lineup & "' WHERE id = '" & editid &"' "
' 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 16c's war indtastningssystem//
skriver
Tilbage til war siden