%@ LANGUAGE=vbscript %> <% option explicit %> <% '------------------------------------------------------------------- ' DECLARATIONS '------------------------------------------------------------------- on error resume next 'For fast pagelinkage dim s_ThisPage s_ThisPage = "kontakt.html" dim rowBgColor dim lb_diffColor dim dicErrorList set dicErrorList = Server.CreateObject("Scripting.Dictionary") '---------------------------------------------------------------------------- ' REQUEST HANDLING '---------------------------------------------------------------------------- If Request("SEND").count > 0 then Add "SENDIT","Tack! Ditt meddelande är skickat!" End If '--------------------------------------------------- ' Sets Client value in field (input tag) in HTML '--------------------------------------------------- Function getValue(byref InputField, byRef dbfield) If dicErrorList.Count > 0 Then getValue = Server.HTMLEncode(Request(InputField)) Else getValue = "" End if End function %>
|
|
|