<% Response.Buffer = true Response.Expires = -1 Response.ExpiresAbsolute = Now() -2 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private" Response.CacheControl = "no-cache" if Session("name") = "" OR Session("uid") = "" then Response.Redirect("login.asp") else struserID = Session("uid") strUserName = Session("name") strUserName = uCase(Left(strUserName,1)) & lCase(Mid(strUserName ,2)) strMedlems_ID = Session("Medlems_ID") strMedlemsnummer = Session("Medlemsnummer") strEPost = Session("epost") Dim MM_editAction MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) ' boolean to abort record edit Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "form1") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_rsconn_STRING MM_editCmd.CommandText = "INSERT INTO SVFKFordon (Medlems_ID, Kategori, Bilmarke, Modell, Arsmodell, Notering, Medlemsnummer) VALUES (?, ?, ?, ?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(strMedlems_ID, strMedlems_ID, null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("Kategori")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("Bilmarke")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("Modell")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 50, Request.Form("Arsmodell")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 100, Request.Form("Notering")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 5, 1, -1, MM_IIF(strMedlemsnummer, strMedlemsnummer, null)) ' adDouble MM_editCmd.Execute MM_editCmd.ActiveConnection.Close loggusername = Session("name") loggmedlemsid = Session("Medlems_ID") Ip = Request.Servervariables("REMOTE_ADDR") systemmessage = "ADD Fordon: Kategori:" & Request.Form("Kategori") & " Bilmärke:" & Request.Form("Bilmarke") & " Modell:" & Request.Form("Modell") & " Årsmodell:" & Request.Form("Arsmodell") & " Notering:" & Request.Form("Notering") Set Cmd = Server.CreateObject ("ADODB.Command") Cmd.ActiveConnection = MM_rsconn_STRING Cmd.CommandText = "Insert Into SVFKLogg(Ip, username, Medlems_ID, systemmessage) VALUES (?, ?, ?, ?)" Cmd.Prepared = true Cmd.Parameters.Append Cmd.CreateParameter("param1", 202, 1, 50, ip) ' adVarWChar Cmd.Parameters.Append Cmd.CreateParameter("param2", 202, 1, 50, loggusername) ' adVarWChar Cmd.Parameters.Append Cmd.CreateParameter("param3", 202, 1, 50, loggmedlemsid) ' adVarWChar Cmd.Parameters.Append Cmd.CreateParameter("param4", 201, 1, 65535, systemmessage) ' adVarWChar Cmd.Execute Cmd.ActiveConnection.Close Response.Redirect("default.asp") End If End If %>

Tillbaka

Lägg till fordon

Kategori:	Bil Buss Båt Cykel Husvagn Lastbil MC Moped Snöskoter
Bilmärke:
Modell:
Årsmodell:
Notering:	(Max 90 tecken) Du kan skriva tecken till.

 

<% end if %>