Sub SendBlankForm Dim fs Set fs = CreateObject("Scripting.FileSystemObject") If Not fs.FileExists(FileNameLikeMine("htm")) Then String2File "
Site Number:
", FileNameLikeMine("htm") End If Wscript.Echo "HTTP/1.0 200 OK" Wscript.Echo "Content-type: text/html" & vbCrLf Wscript.Echo File2String(FileNameLikeMine("htm")) End Sub