<% 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