<% 'Server.Transfer("register2.asp") If InStr(Lcase(Request("comments")),"href")>0 Then Response.End If Request("submit") <> "" AND Request("i")="" Then ' registrationID="InstallationID is empty" Else 'if Request("submit") <> "" then s = Request("i") if len(s)>3 and (Left(s,2)="X1" or Left(s,2)="X3") then sum = 0 For i=1 to Len(s) sum = sum + Asc(Mid(s,i,1)) Next registrationID=sum else 'registrationID="InstallationID is incorrect" end if text = Cstr(Date())+", "+Request("firstname")+","+Request("lastname")+","+Request("email")+","+Request("i")+","+Request("comments")+","+Cstr(registrationID)+Chr(13)+Chr(10) 'WriteToFile Server.MapPath("registration.log"),text,true 'WriteToFile "C:\WINDOWS\Temp\registration.log",text,true 'end if End If %>

<%=registrationID%>

<% function WriteToFile(FileName, Contents, Append) if Append = true then iMode = 8 else iMode = 2 end if set oFs = server.createobject("Scripting.FileSystemObject") set oTextFile = oFs.OpenTextFile(FileName, iMode, True) oTextFile.Write Contents oTextFile.Close set oTextFile = nothing set oFS = nothing end function %>