ASP mistake is solved: 800a003a mistake

Consult other file revises, the website returns to normal eventually, do not know a program, do not know a principle so, be to add a judgement roughly.
Original code:
For P=1 To Mpage Step 1Dim Fso, ktemplate, kypSet Fso=createobject("scripting.filesystemobject" )Set Ktemplate=fso.opentextfile(server.mappath(" . . / Muban/create_html.ASP" ) )Kyp=ktemplate.readallKtemplate.closeSet Ktemplate=nothingFso.CreateFolder(server.mappath(" . .diqu" &address) )If S_id=0 Then
. . .
The code after revising:
For P=1 To Mpage Step 1Dim Fso, ktemplate, kypSet Fso=createobject("scripting.filesystemobject" )Set Ktemplate=fso.opentextfile(server.mappath(" . . / Muban/create_html.asp" ) )Kyp=ktemplate.readallKtemplate.closeSet Ktemplate=nothingIf Fso.FolderExists(server.mappath(" . .diqu" &address)) Then
'ElseFso.CreateFolder(server.mappath(" . .diqu" &address) )End IfIf S_id=0 Then
. . .