<%
Dim Filename
Dim txtWho
Dim txtWhere
Dim txtWhich
Dim txtWhat
Dim txtTrying
Dim txtExpected
Filename = Request.Form("filename")
'response.write Filename & " is filename"
txtWho = Request.Form("who")
txtWhere = Request.Form("where")
txtWhich = Request.Form("which")
txtWhat = Request.Form("what")
txtTrying = Request.Form("trying")
txtExpected = Request.Form("expected")
Filename = "C:\dblog\" & Filename & ".txt"
set oFs = server.createobject("Scripting.FileSystemObject")
set oTextFile = oFs.OpenTextFile(FileName, 2, True)
oTextFile.Write "What is your name?" & vbCrLf
oTextFile.Write "------------------" & vbCrLf
oTextFile.Write txtWho
oTextFile.Write "" & vbCrLf & vbCrLf
oTextFile.Write "What location are you reporting a problem for?" & vbCrLf
oTextFile.Write "------------------------------------------------------" & vbCrLf
oTextFile.Write txtWhere
oTextFile.Write "" & vbCrLf & vbCrLf
oTextFile.Write "Which pcs are having the problem" & vbCrLf
oTextFile.Write "--------------------------------" & vbCrLf
oTextFile.Write txtWhich
oTextFile.Write "" & vbCrLf & vbCrLf
oTextFile.Write "What is the problem you are experiencing?" & vbCrLf
oTextFile.Write "-----------------------------------------" & vbCrLf
oTextFile.Write txtWhat
oTextFile.Write "" & vbCrLf & vbCrLf
oTextFile.Write "(If applicable) What were you trying to do at the time of the problem" & vbCrLf
oTextFile.Write "----------------------------------------------------------------------" & vbCrLf
oTextFile.Write txtTrying
oTextFile.Write "" & vbCrLf & vbCrLf
oTextFile.Write "(If applicable) What were you expecting to happen at the time of the problem?" & vbCrLf
oTextFile.Write "------------------------------------------------------------------------------" & vbCrLf
oTextFile.Write txtExpected
oTextFile.Write "" & vbCrLf & vbCrLf
'oTextFile.Write Contents
'
%>
Thank you! Your problem has been logged.
Back to the Trouble Button