<%@ LANGUAGE="VBScript" %>
<%
Response.expires=0
If InStr(1,CStr(Request.ServerVariables("HTTP_USER_AGENT")),"MSIE5")<>0 Then
ie=true
Else
ie=false
End If
operator1 = CStr(Request.Form("operator1"))
firstname1 = CStr(Request.Form("firstname1"))
operator2 = CStr(Request.Form("operator2"))
firstname2 = CStr(Request.Form("firstname2"))
comments = CStr(Request.Form("comments"))
os = CLng(Request.Form("os"))
low_val = CLng(Request.Form("low_val"))
high_val = CLng(Request.Form("high_val"))
comments= Replace(comments,"'","''")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open phdb_rd
Connection.BeginTrans
SQLstmt=" insert into phoffline.log_entries (log_date,action,logid) "
SQLstmt= SQLStmt & " values (SysDate,'TLD_ACTION',phoffline.logid.nextval)"
On Error Resume Next
response.write(SQLStmt & "
")
' Set RS= Connection.Execute(SQLstmt)
If Err.Number = 0 Then
'
' fill comments
'
If comments<>"" Then
SQLstmt=" insert into phoffline.log_comments (logid,text) "
SQLstmt= SQLStmt & " values (phoffline.logid.currval,'" & CStr(comments) & "')"
response.write(SQLStmt & "
")
On Error Resume Next
' Set RS= Connection.Execute(SQLstmt)
End If
End If
If Err.Number = 0 Then
'
' fill operators
'
If Operator1<>"" Then
SQLstmt=" insert into phoffline.log_operators (logid,operator) "
SQLstmt= SQLStmt & " values (phoffline.logid.currval,'" & CStr(operator1) & "')"
response.write(SQLStmt & "
")
On Error Resume Next
' Set RS= Connection.Execute(SQLstmt)
End If
End If
If Err.Number = 0 Then
If Operator2<>"" Then
SQLstmt=" insert into phoffline.log_operators (logid,operator) "
SQLstmt= SQLStmt & " values (phoffline.logid.currval,'" & CStr(operator2) & "')"
response.write(SQLStmt & "
")
On Error Resume Next
' Set RS= Connection.Execute(SQLstmt)
End If
End If
For i=low_val To high_val
If Err.Number = 0 Then
SQLstmt=" insert into phoffline.tld_data (order_set,id) "
SQLstmt= SQLStmt & " values (" & CStr(os) & "," & CStr(i) & ")"
response.write(SQLStmt & "
")
On Error Resume Next
' Set RS= Connection.Execute(SQLstmt)
End If
If Err.Number = 0 Then
SQLstmt=" insert into phoffline.tld_action_log (order_set,id,logid,action) "
SQLstmt= SQLstmt & " values (" & CStr(os) & "," & CStr(i) & ",phoffline.logid.currval,'NEW_TLDS')"
response.write(SQLstmt & "
")
On Error Resume Next
' Set RS= Connection.Execute(SQLstmt)
End If
Next
If Err.Number = 0 Then
Connection.RollbackTrans
' Connection.CommitTrans
Connection.Close
Set Connection=nothing
Set RS=nothing
%>
New TLD Entry Execution
<%
'1=0 is for testing
if 1=0 Then
if ie then
%>
<%
Else
%>
<%
End If
'next End If is for 1=0 testing
End If
Else
Connection.RollbackTrans
Connection.Close
Set Connection=nothing
Set RS=nothing
%>
Error #<%= Err.Number %> occurred;
<%= Err.Description %>.
<%
End If
%>