I have a contractors.asp page that the method=post action=loaddata.asp
When I run contractors.asp, it runs completely through loaddata.asp, but then it just sits in the browser on the blank page of loaddata.asp. how do I get it to return to Contractors.asp?
Here is my code:
contractors.asp
<form method="post" action="//seims/project3_local/contractors/loaddata.asp" name="Contractors">
loaddata.asp
<%@ language=vbscript %>
<!--#include virtual="/adovbs.inc"-->
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/blends/THEME.CSS" VI6.0THEME="Blends">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/blends/GRAPH0.CSS" VI6.0THEME="Blends">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/blends/COLOR0.CSS" VI6.0THEME="Blends">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/blends/CUSTOM.CSS" VI6.0THEME="Blends"></HEAD>
<html>
<BODY>
<P> </P>
<%
Dim Conn, rs, sqlStatement, strHost, Msg, mail,CurrentDate
Set Conn = Server.CreateObject("ADODB.Connection"
Conn.Open "driver=SQL Server;SERVER=SEIMS;DATABASE=FORMS;UID=sa;PWD=;"
sqlStatement = "Contractors"
Set rs = Server.CreateObject("ADODB.Recordset"
rs.open sqlStatement, Conn,adOpenKeyset,adLockOptimistic, adCmdTable
rs.AddNew
CurrentDate = Request.Form("EntryDate"
If Not ISDate(CurrentDate) Then
rs("EntryDate" = Date()
Else
rs("EntryDate" = Request.Form("EntryDate"
End If
rs("ContractorFirstName" = Request.Form("ContractorFirstName"
rs("ContractorLastName" = Request.Form("ContractorLastName"
rs.Update
'Close
rs.Close
set rs = nothing
Conn.Close
set conn = nothing
%>
</BODY>
</html>
When I run contractors.asp, it runs completely through loaddata.asp, but then it just sits in the browser on the blank page of loaddata.asp. how do I get it to return to Contractors.asp?
Here is my code:
contractors.asp
<form method="post" action="//seims/project3_local/contractors/loaddata.asp" name="Contractors">
loaddata.asp
<%@ language=vbscript %>
<!--#include virtual="/adovbs.inc"-->
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/blends/THEME.CSS" VI6.0THEME="Blends">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/blends/GRAPH0.CSS" VI6.0THEME="Blends">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/blends/COLOR0.CSS" VI6.0THEME="Blends">
<LINK REL="stylesheet" TYPE="text/css" HREF="_Themes/blends/CUSTOM.CSS" VI6.0THEME="Blends"></HEAD>
<html>
<BODY>
<P> </P>
<%
Dim Conn, rs, sqlStatement, strHost, Msg, mail,CurrentDate
Set Conn = Server.CreateObject("ADODB.Connection"
Conn.Open "driver=SQL Server;SERVER=SEIMS;DATABASE=FORMS;UID=sa;PWD=;"
sqlStatement = "Contractors"
Set rs = Server.CreateObject("ADODB.Recordset"
rs.open sqlStatement, Conn,adOpenKeyset,adLockOptimistic, adCmdTable
rs.AddNew
CurrentDate = Request.Form("EntryDate"
If Not ISDate(CurrentDate) Then
rs("EntryDate" = Date()
Else
rs("EntryDate" = Request.Form("EntryDate"
End If
rs("ContractorFirstName" = Request.Form("ContractorFirstName"
rs("ContractorLastName" = Request.Form("ContractorLastName"
rs.Update
'Close
rs.Close
set rs = nothing
Conn.Close
set conn = nothing
%>
</BODY>
</html>