<%@language="VBScript" codepage="932"%>
<%Option Explicit%>
<%
Response.AddHeader "Pragma","no-cache"
Response.Expires = -1
Response.CacheControl = "Private"
%>
<%
'''' Logic Start #########################################
Dim errorStatus
Dim isError, isBack
Dim i
isError = False
If Session("session.id") = Session.SessionID Then
If Session("iserror") Then
isError = True
End If
End If
If isError Then
'' 配列を受け取っています。
errorStatus = Session("error.status")
' Session.Contents.Remove("error.status")
' Response.Write UBound(Session("error.status"))
If errorStatus(0) Then
errorStatus(0) = "名前（姓）が未入力です。"
Else
errorStatus(0) = ""
End If
If errorStatus(1) Then
errorStatus(1) = "名前（名）が未入力です。"
Else
errorStatus(1) = ""
End If
If errorStatus(2) Then
errorStatus(2) = "名前カナ（姓）が未入力です。"
Else
errorStatus(2) = ""
End If
If errorStatus(3) Then
errorStatus(3) = "名前カナ（名）が未入力です。"
Else
errorStatus(3) = ""
End If
If errorStatus(4) Then
errorStatus(4) = "メールアドレスに入力誤りがあります。"
Else
errorStatus(4) = ""
End If
Else
' Session.Contents.RemoveAll()
Session("session.id") = Session.SessionID
' Response.Write Session("session.id") & " "
' Response.Write Session.SessionID & " "
End If
'''' Logic End #########################################
'''' Start Function#########################################
Function ErrorOutput( isError, errorString )
If isError Then
ErrorOutput = errorString
Else
ErrorOutput = ""
End If
End Function
'''' End Function#########################################
%>
Webシステム開発の事ならZit｜株式会社ズィット