|
| |
|
|
dpav29
Posts: 78
From: Brambleton VA USA
Status: offline
 |
change connection from DSN'less to DSN - 3/7/2005 11:23:47
Hi folks,
I have a crashed server and need to temporarily move a site to a new domain. The problem is dsn'less isn't available on this server. I'm trying to make the dbase connection using the DSN and I can't make it work. . . please help if you can.
My DSN'less connection string is:
Application("cstr")="PROVIDER=MSDASQL;"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\websites\mywebsite\www\myweb\fpdb\mydb.mdb"
my dsn is named "georgiadb"
Is the process to simply modify my gloabal.asa file? That's what I've been trying, but I can't figure out the string. I've tried a couple of combinations like:
Application("cstr")="PROVIDER=MSDASQL;"DRIVER={Microsoft Access Driver (*.mdb)};"DSN = "georgiadb" (I thought it was that simple).
Am I even close?
_____________________________
Something witty.
|
|
|
|
Giomanach
Posts: 6136
Joined: 11/19/2003
From: England
Status: offline
|
RE: change connection from DSN'less to DSN - 3/7/2005 12:22:34
<%
Dim con
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DSN=mydsn"
'Now database is open and we are connected
'Put your ASP using the DB connection in here
'Once Done, Close The Connection, as follows
con.Close
Set con = Nothing
%>
Replace mydsn with your DSN name
HTH
_____________________________
| |
|
|
|
dpav29
Posts: 78
From: Brambleton VA USA
Status: offline
|
RE: change connection from DSN'less to DSN - 3/7/2005 12:26:27
Thanks a lot! Do I have to put this in all of the pages? Currently it's only in the global.asa file which is referenced in the pages as "cstr"
Application("cstr")="PROVIDER=MSDASQL;"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\websites\mywebsite\www\myweb\fpdb\mydb.mdb"
_____________________________
Something witty.
| |
|
|
|
Giomanach
Posts: 6136
Joined: 11/19/2003
From: England
Status: offline
|
RE: change connection from DSN'less to DSN - 3/7/2005 12:29:56
I'd wait for one of the gurus on that one - I've always used includes with ASP, never the global.asa
D
_____________________________
| |
|
|
|
dpav29
Posts: 78
From: Brambleton VA USA
Status: offline
|
RE: change connection from DSN'less to DSN - 3/7/2005 13:59:56
Yes I have to use global.asa anyway, plus since it is only temporary (knock on wood), I didn't want to modify all of the pages. . . there are quite a few!
_____________________________
Something witty.
| |
|
|
|
rdouglass
Posts: 9280
From: Biddeford, ME USA
Status: offline
|
RE: change connection from DSN'less to DSN - 3/7/2005 14:39:48
I'm not at all an expert on the global.asa file, but if it we're mine, I'd try this:
Put this code on a page all by itself; call it path.asp or something like that.
<%Response.write(Server.Mappath("\fpdb\mydb.mdb"))%>
That should write the full path to the DB. Put that in place of:
d:\websites\mywebsite\www\myweb\fpdb\mydb.mdb
in the global.asa file.
At least that's what I'd try.
_____________________________
Don't take you're eye off your final destination.
ASP Checkbox Function Tutorial.
| |
|
|
|
dpav29
Posts: 78
From: Brambleton VA USA
Status: offline
|
RE: change connection from DSN'less to DSN - 3/8/2005 11:39:06
Yes. . .looks simple, but still can't get it to work. I'm thinking the temp site doesn't have proper permissions set. Of course the host says they are right, so I'm at a loss!
_____________________________
Something witty.
| |
|
|
|
rdouglass
Posts: 9280
From: Biddeford, ME USA
Status: offline
|
RE: change connection from DSN'less to DSN - 3/8/2005 13:03:24
Can you publish any DB, sample or whatever, thru FP to the site and have it build a connection and then build a sucessful DRW results?
_____________________________
Don't take you're eye off your final destination.
ASP Checkbox Function Tutorial.
| |
|
|
|
dpav29
Posts: 78
From: Brambleton VA USA
Status: offline
|
RE: change connection from DSN'less to DSN - 3/8/2005 14:22:25
Yes. . I actually did that and established the connection. Now I'm having to re do the DRW's. some of my non-drw queries (raw asp) don't work though. . . i"m thinking back to an old post from you re: the _fpclass files (fbdbrgn1 I think)??
_____________________________
Something witty.
| |
|
|
|
rdouglass
Posts: 9280
From: Biddeford, ME USA
Status: offline
|
RE: change connection from DSN'less to DSN - 3/8/2005 14:59:21
quote:
Now I'm having to re do the DRW's
How about a global search and replace?
But if you do as Spooky suggested - create a new one - you should be able to use the same name and have them work. At least AFAIK but I don't use the DWR much anymore.
_____________________________
Don't take you're eye off your final destination.
ASP Checkbox Function Tutorial.
| |
|
|
|
dpav29
Posts: 78
From: Brambleton VA USA
Status: offline
|
RE: change connection from DSN'less to DSN - 3/8/2005 16:23:55
Too late. . .connection name was different. I already made the changes. Most things are ok now except one major problem. This one form won't write to the database. It wasn't created with frontpage, but nothing has changed in it. I'm able to write to the table using a DRW, but not with this page. When I hit submit, it refreshes the page with no errors, but doesn't write the data to the table.
Here's where it's failing (I think): con.Execute "insert into tracking (GroupID, Recruiter, Status,SiteReview, bariers, barComment, outcome, followup, Complete, fees,language,notes,inStatus,inContact,sreviewDate,announcement,contracted,progress) " &_
" values (" & GroupId & "," & user & ",'" & status & "','" & SiteReview & "','" & barriers & "','" & Txtother & "','" & outcome & "','" & followup & "','" & complete & "','" & fees & "','" & language & "','" & notes & "','" & inStatus & "'," & inContact & "," & sreviewDate & "," & announcement & "," & contracted & ",'" & progress & "')"
end if
end if
And here's the entire page. Any idea why this isn't working?
<!--#include virtual="/app/header.asp"-->
<%
dim GroupId
dim con
dim rs1
dim typegroup
dim GroupName
dim taxId
dim txtHospitalBased
dim createdby
dim ct1
dim ct2
dim tel1
dim tel2
dim errorMessage
Const iPageSize = 3
dim hDate
dim statH
dim outH
dim recH
dim siteH
dim notesH
dim status
dim SiteReview
dim barriers
dim Txtother
dim outcome
dim complete
dim fees
dim language
dim notes
dim followup
dim statusVerify
dim inStatus
dim inContact
dim sreviewDate
dim announcement
dim contracted
dim progress
dim source
dim inStatusH
dim inContactH
dim sreviewDateH
dim announcementH
dim contractedH
dim progressH
dim followupH
dim inStatusI
dim inContactI
dim sreviewDateI
dim announcementI
dim contractedI
dim progressI
dim sitereviewI
Dim iCurrentPage, iCounter
statusVerify=""
GroupId=Request.QueryString("GroupId")
set con=server.CreateObject("ADODB.Connection")
con.Open Application("cstr")
set rs1=server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection=con
if not isnumeric(GroupId) then
errorMessage="Invalid Group requested"
else
if clng(GroupId)<0 then
errorMessage="Invalid Group requested"
else
GroupId=clng(GroupId)
rs1.Open "SELECT Groups.GroupName, tblAdmin.fldFirstName, tblAdmin.fldLastName, Groups.Loc1Contact, Groups.Loc1Phone, Groups.Loc2Contact, Groups.Loc2Phone, Groups.TaxID, Groups.HospitalBased, Groups.TypeGroup " &_
" FROM Groups LEFT JOIN tblAdmin ON Groups.createdby = tblAdmin.fldID " &_
" WHERE (Groups.GroupID=" & GroupId & ");"
if rs1.EOF then
errorMessage="Invalid Group requested"
else
GroupName=rs1(0)
createdby=rs1(1) & " " & rs1(2)
ct1=rs1(3)
tel1=rs1(4)
ct2=rs1(5)
tel2=rs1(6)
taxId=rs1(7)
txtHospitalBased=rs1(8)
typegroup=rs1(9)
end if
rs1.Close
if errorMessage="" then
if Request.Form("Submit")="Submit" and referer=refererCheck then
status=formatEntry(Request.Form("status"))
SiteReview=formatEntry(Request.Form("SiteReview"))
barriers=formatEntry(Request.Form("barriers"))
Txtother=formatEntry(Request.Form("Txtother"))
outcome=formatEntry(Request.Form("outcome"))
complete=formatEntry(Request.Form("complete"))
fees=formatEntry(Request.Form("fees"))
language=formatEntry(Request.Form("language"))
notes=formatEntry(Request.Form("notes"))
followup=formatEntry(Request.Form("followup"))
inStatus=formatEntry(Request.Form("inStatus"))
inContact=formatEntry(Request.Form("inContact"))
sreviewDate=formatEntry(Request.Form("sreviewDate"))
announcement=formatEntry(Request.Form("announcement"))
contracted=formatEntry(Request.Form("contracted"))
progress=formatEntry(Request.Form("progress"))
inContact=formatDate(inContact)
sreviewDate=formatDate(sreviewDate)
announcement=formatDate(announcement)
contracted=formatDate(contracted)
'===================STATUS VERIFICATION==========================
'the function formatEntry cleans up the values to avoid inserting of scripts or reserved characters
' In this case it is not needed because the entry comes from a predifined drop down list and the
' submit action is secured by "referer=refererCheck" above. Just an extra security measure
if status="" then
statusVerify="<br><b>Your contact was not saved because you did not enter a Contact Type! Click your back button to continue.</b>"
else
con.Execute "insert into tracking (GroupID, Recruiter, Status,SiteReview, bariers, barComment, outcome, followup, Complete, fees,language,notes,inStatus,inContact,sreviewDate,announcement,contracted,progress) " &_
" values (" & GroupId & "," & user & ",'" & status & "','" & SiteReview & "','" & barriers & "','" & Txtother & "','" & outcome & "','" & followup & "','" & complete & "','" & fees & "','" & language & "','" & notes & "','" & inStatus & "'," & inContact & "," & sreviewDate & "," & announcement & "," & contracted & ",'" & progress & "')"
end if
end if
end if
rs1.Open "SELECT top 1 inStatus, inContact, sreviewDate, announcement, contracted, progress,sitereview FROM Tracking WHERE (Tracking.GroupID=" & GroupId & ") order by TrackingID desc;"
if not rs1.EOF then
inStatusI=rs1(0) & ""
inContactI=rs1(1) & ""
sreviewDateI=rs1(2) & ""
announcementI=rs1(3) & ""
contractedI=rs1(4) & ""
progressI=rs1(5) & ""
sitereviewI=rs1(6) & ""
end if
rs1.close
end if
end if
%>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function btnPrevClick()
{
var intCurrPage;
intCurrPage = parseInt(document.track.trackpage.value);
if(intCurrPage > 1 ) document.track.trackpage.value = intCurrPage - 1;
document.track.submit();
}
function btnNextClick()
{
var intCurrPage;
intCurrPage = parseInt(document.track.trackpage.value);
document.track.trackpage.value = intCurrPage + 1;
document.track.submit();
}
//-->
</script>
<SCRIPT>
function open_window(url) {
mywin = window.open(url,"win",'toolbar=0,left=0,top=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=0,width=350,height=350');
}
</SCRIPT>
<h4>Add Practitioner Group Contact Tracking Information</h4>
<!--<body bgcolor="#FFFFFF" text="#000000" onload="openFrameless()">-->
<body bgcolor="#FFFFFF" text="#000000" >
<%if errorMessage="" then%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="653" id="AutoNumber1">
<tr>
<td width="25%" align="center">
<a href="histtracking.asp?GroupID=<%=GroupId%>">View History</a></td>
<td width="25%" align="center"> <a href="providerlist.asp?GroupID=<%=Request.QueryString("GroupId")%>">List Related Providers</a></td>
<td width="25%" align="center"><a href="groupdetail.asp?groupId=<%=GroupID%>">Group Details</a>
<a href="editgroup.asp?groupId=<%=GroupID%>">Edit</a></td>
<td width="25%" align="center"><a href="javascript:window.opener.location.reload();window.close()">Back to Group List</a></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<td width="100%"> <font color="#FF0000"> <%=statusVerify%></font> </td>
</tr>
</table>
<form method="POST" action="addtracking.asp?GroupId=<%=Request.QueryString("GroupId")%>">
<input type="hidden" value="Submit" name="Submit">
<table border="0" width="708" height="274">
<tr>
<td width="118" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>Group Id:</b></td>
<td width="82" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" ><%=GroupId%></td>
<td width="78" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="21" >
<b>Priority:</b></td>
<td width="78" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" ><%=txtHospitalBased%></td>
<td width="112" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>Group Name:</b></td>
<td width="215" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="21" ><%=GroupName%></td>
</tr>
<tr>
<td width="118" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>Prov Type:</b></td>
<td width="238" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="4" height="21" > <%=TypeGroup%></td>
<td width="112" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
</td>
<td width="215" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="21"> </td>
</tr>
<tr>
<td width="118" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>Tax Id:</b></td>
<td width="238" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="4" height="21" ><%=taxId%></td>
<td width="112" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>Recruiter:</b></td>
<td width="215" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="21"><%=createdby%></td>
</tr>
<tr>
<td width="118" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>Contact 1:</b></td>
<td width="238" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="4" height="21" ><%=ct1%> </td>
<td width="112" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>Phone 1:</b></td>
<td width="215" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="21" ><%=tel1%> </td>
</tr>
<tr>
<td width="118" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>Contact 2:</b></td>
<td width="238" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="4" height="21" ><%=ct2%> </td>
<td width="112" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>Phone 2:</b></td>
<td width="215" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="21" ><%=tel2%> </td>
</tr>
<tr>
<td width="653" colspan="8" bgcolor="#C0C0C0" height="19">
<p align="center"><b>Enter Practitioner Group Tracking Information Below </b>
<A HREF ="javascript:open_window('providerListshort.asp?GroupID=<%=Request.QueryString("GroupId")%>')">
View Affiliated Practitioners</a></td>
</tr>
<tr>
<td width="118" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" height="24" >
<b>InitialContact:</b></td>
<td width="350" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="5" height="24" >
<input type="text" name="inContact" size="12" maxlength=10 value="<%=inContactI%>">
<font size="1">(The date the practice is first contacted)</font></td>
<td width="96" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" height="24" >
<b>Progress:</b></td>
<td width="119" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" height="24" >
<select name="progress" size="1">
<option value="InProgress" selected>In Progress</option>
<%if progressI="NotStarted" then%>
<option value="NotStarted" selected>NotStarted</option>
<%else%>
<option value="NotStarted">NotStarted</option>
<%end if%>
<%if progressI="Complete" then%>
<option value="Complete" selected>Complete</option>
<%else%>
<option value="Complete">Complete</option>
<%end if%>
<%if progressI="Declined" then%>
<option value="Declined" selected>Declined</option>
<%else%>
<option value="Declined">Declined</option>
<%end if%>
<%if progressI="UnableToLocate" then%>
<option value="UnableToLocate" selected>UnableToLocate</option>
<%else%>
<option value="UnableToLocate">UnableToLocate</option>
<%end if%>
<%if progressI="Invalid" then%>
<option value="Invalid" selected>Invalid</option>
<%else%>
<option value="Invalid">Invalid</option>
<%end if%>
<%if progressI="Research" then%>
<option value="Research" selected>Research</option>
<%else%>
<option value="Research">Research</option>
<%end if%>
</select></td>
</tr>
<tr>
<td width="118" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" height="1" >
<b>ContactSent:</b></td>
<td width="350" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" colspan="5" height="1" >
<input type="text" name="Announcement" size="12" maxlength=10 value="<%=AnnouncementI%>">
<font size="1">(Mail date of contract)</font></td>
<td width="96" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" height="1" >
<b>Complete:</b></td>
<td width="119" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" height="1" >
</td>
</tr>
<tr>
<td width="118" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" height="1" >
<b>SiteReview:</b></td>
<td width="350" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" colspan="5" height="1" >
<input type="text" name="sreviewDate" size="12" maxlength=10 value="<%=sreviewDateI%>">
<font size="1">(Environment review)</font></td>
<td width="96" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" height="1" >
<b>SiteReview</b></td>
<td width="119" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" height="1" >
<select name="SiteReview">
<option value="NotApplicable" selected>NotApplicable</option>
<%if SiteReviewI="NeedToSchedule" then%>
<option value="NeedToSchedule" selected>NeedToSchedule</option>
<%else%>
<option value="NeedToSchedule">NeedToSchedule</option>
<%end if%>
<%if SiteReviewI="Scheduled" then%>
<option value="Scheduled" selected>Scheduled</option>
<%else%>
<option value="Scheduled">Scheduled</option>
<%end if%>
<%if SiteReviewI="Complete" then%>
<option value="Complete" selected>Complete</option>
<%else%>
<option value="Complete">Complete</option>
<%end if%>
</select></td>
</tr>
<tr>
<td width="118" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" height="24" >
<b>TypeContact:<font color="#FF0000">*</font> </b></td>
<td width="425" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="5" valign="top" height="24" >
<p align="left">
<select name="status" size="1">
<option value="" selected>Select</option>
<option value="Phone">Phone</option>
<option value="Visit">Visit</option>
<option value="Update">Update</option>
<option value="Mail">Mail</option>
</select> <b>(<font size="2">Required field)</font></b></td>
<td width="70" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" height="24" >
<b>Source</b></td>
<td width="70" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" height="24" >
</td>
</tr>
<tr>
<td width="118" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" height="24" >
<b>ToDo:</b></td>
<td width="124" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" colspan="2" height="24" >
<select name="outcome" size="1">
<option value="" selected>Select</option>
<option value="MailSoloContracts">MailSoloContracts</option>
<option value="MailGroupContracts">MailGroupContracts</option>
<option value="FedExGroupContracts">FedExGroupContracts</option>
<option value="SpecialHandle">SpecialHandle</option>
<option value="ScheduleVisit">ScheduleVisit</option>
<option value="FaxLOI">FaxLOI</option>
</select></td>
<td width="122" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" valign="top" colspan="2" height="24" >
<p align="right"><b>fax/email to:</b></td>
<td width="327" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="3" valign="top" height="24" >
<input type="text" name="txtother" size="27" maxlength=200><select name="inStatus" size="1">
<option value="N/A" selected>N/A</option>
</select></td>
</tr>
<tr>
<td width="118" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="86" >
<b>Notes</b></td>
<td width="565" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="7" height="86" >
<textarea cols="67" rows="5" name="Notes"></textarea>
</td>
</tr>
<tr>
<td width="212" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="3" height="29" bgcolor="#C0C0C0" >
<p align="right">
<b>Follow up date: </b></td>
<td width="122" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="29" >
<input type="text" name="followup" size="15" maxlength=10></td>
<td width="327" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="3" align="right" height="29" bgcolor="#C0C0C0" >
<input type="submit" value="Record" name="B1"> </td>
</tr>
<tr>
<td width="653" style="border-left-width: 1; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-width: 1" colspan="8" height="1"></td>
</tr>
</table>
</form>
<h4>Tracking History</h4>
<%
con.CursorLocation = 3 'adUseClient
rs1.ActiveConnection=con
rs1.Open "SELECT Tracking.DateComplete, Tracking.Status, Tracking.SiteReview, Tracking.outcome, tblAdmin.fldFirstName, tblAdmin.fldLastName, Tracking.Notes,Tracking.inStatus,Tracking.inContact,Tracking.sreviewDate,Tracking.announcement,Tracking.contracted,Tracking.progress,tracking.followup " &_
" FROM Tracking LEFT JOIN tblAdmin ON Tracking.Recruiter = tblAdmin.fldID " &_
" WHERE (Tracking.GroupID=" & GroupId & ") " &_
" ORDER BY Tracking.DateComplete desc,Tracking.TrackingID DESC;"
if rs1.EOF then
%>
<STRONG> No History Available</STRONG>
<%else
rs1.PageSize = iPageSize
iCurrentPage = Request("trackpage")
if not isnumeric(iCurrentPage) then
if cint(iCurrentPage)<1 then
iCurrentPage=1
end if
end if
If IsEmpty( iCurrentPage ) or iCurrentPage="" then
iCurrentPage = 1
else
iCurrentPage = CInt(iCurrentPage)
if iCurrentPage > rs1.PageCount then
iCurrentPage = rs1.PageCount
end if
end if
rs1.AbsolutePage = iCurrentPage
iCounter = 1
WHILE ( NOT rs1.EOF ) AND ( iCounter <= rs1.PageSize)
hDate=rs1(0)
statH=rs1(1)
siteH=rs1(2)
outH=rs1(3)
recH=rs1(4) & " " & rs1(5)
notesH=rs1(6)
inStatusH=rs1(7)
inContactH=rs1(8)
sreviewDateH=rs1(9)
announcementH=rs1(10)
contractedH=rs1(11)
progressH=rs1(12)
followupH=rs1(13)
%>
<table border="1" width="726" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" cellspacing="0" height="141">
<tr>
<td width="126" valign="top" height="19"><b>Initial Status: </b></td>
<td width="126" valign="top" height="19"><b>Initial Contact: </b></td>
<td width="130" valign="top" height="19"><b>Progress: </b></td>
<td width="163" valign="top" height="19"><b>Contract Sent: </b></td>
<td width="159" valign="top" height="19"><B>Contracted: </b></td>
</tr>
<tr>
<td width="126" valign="top" height="19"><%=inStatusH%> </td>
<td width="126" valign="top" height="19"><%=inContactH%> </td>
<td width="130" valign="top" height="19"><%=progressH%> </td>
<td width="163" valign="top" height="19"><%=announcementH%> </td>
<td width="159" valign="top" height="19"><%=contractedH%> </td>
</tr>
<tr>
<td width="126" valign="top" height="22"><b>Date: </b></td>
<td width="126" valign="top" height="22"><b>TypeContact: </b></td>
<td width="130" valign="top" height="22"><b>Site Review: </b></td>
<td width="163" valign="top" height="22"><b>ToDo: </b></td>
<td width="159" valign="top" height="22"><b>Entered by: </b></td>
</tr>
<tr>
<td width="126" valign="top" height="19"><%=hDate%> </td>
<td width="126" valign="top" height="19"><%=statH%> </td>
<td width="130" valign="top" height="19"><%=siteH%> <%=sreviewDateH%></td>
<td width="163" valign="top" height="19"><%=outH%> </td>
<td width="159" valign="top" height="19"><%=recH%> </td>
</tr>
<tr>
<td width="126" valign="top" height="19"><b>Followup on:</b></td>
<td width="126" valign="top" height="19"><%=followupH%> </td>
<td width="130" valign="top" height="19"> </td>
<td width="163" valign="top" height="19"> </td>
<td width="159" valign="top" height="19"> </td>
</tr>
<tr>
<td width="720" colspan="5" valign="top" height="19"><b>Notes :</b><%=notesH%></td>
</tr>
</table> <%iCounter = iCounter + 1
rs1.MoveNext
wend
%>
<p>
<p><form method="post" id="track" name="track" action="addtracking.asp?GroupId=<%=Request.QueryString("GroupId")%>">
<input TYPE="HIDDEN" id="trackpage" name="trackpage" value="<%=iCurrentPage%>">
<font face="Tahoma" size="2"><b>Page <%=iCurrentPage%> of <%=rs1.PageCount%></b>
<p>
<%
if rs1.PageCount>1 then
IF iCurrentPage<rs1.PageCount and iCurrentPage>1 THEN
Response.Write("<INPUT TYPE=BUTTON VALUE='<<Back' onclick='btnPrevClick()' id=btnPrev name=btnPrev> <INPUT TYPE=BUTTON VALUE='Next>>' onclick='btnNextClick()' id=btnNext name=btnNext>")
end if
if iCurrentPage=1 and iCurrentPage<rs1.PageCount THEN
Response.Write("<INPUT TYPE=BUTTON VALUE='Next>>' onclick='btnNextClick()' id=btnNext name=btnNext>")
end if
IF iCurrentPage=rs1.PageCount and iCurrentPage>1 THEN
Response.Write("<INPUT TYPE=BUTTON VALUE='<<Back' onclick='btnPrevClick()' id=btnPrev name=btnPrev>")
end if
end if%>
</form>
<%end if
rs1.Close
%>
<%else%>
<table border="0" width="100%">
<tr>
<td width="100%"><%=errorMessage%></td>
</tr>
</table>
<%end if%>
<%
set rs1=nothing
con.Close
set con=nothing%>
<p> </p>
<p> </p>
</font>
<!--#include virtual="/app/footer.asp"-->
_____________________________
Something witty.
| |
|
|
|
dpav29
Posts: 78
From: Brambleton VA USA
Status: offline
|
RE: change connection from DSN'less to DSN - 3/8/2005 19:08:57
Well, everything on the page displays properly and that involves a couple connection strings. . .it lets me go through the process of adding to the form, but does nothing when I click the submit (record) button. It also doesn't recognize whether or not status is null (status<>""). So, I guess it's not getting that far after submitting.
What is bizarre is that I have another form that is almost identical that works. . . same connections same basic idea, without the "status check" (ie. no required fields). The only fundemental difference is the table it is writing to. Here is that code. BTW. . .I REALLY appreciate your time on this! My web host has basically decided that now that I can "connect", his job is done (even though I had no problems prior to his server crashing).
<!--#include virtual="/app/header.asp"-->
<%
// Webtrack, Recruiting Application
// (C) 2001 Glenridge Healthcare Solutions
// Protected by International Copyright Laws
dim con
dim rs1
dim GroupId
dim GroupName
dim Loc1Contact
dim Loc1Phone
dim createdby
dim provId
dim provName
dim fname
dim lname
dim SSN
dim tel
dim email
dim status
dim specialty
dim issues
dim outcome
dim notes
dim i
dim a
dim specName(4)
dim specId(4)
dim errorMessage
Const iPageSize = 3
Dim iCurrentPage, iCounter
dim fnameH
dim lnameH
dim telH
dim emailH
dim statusH
dim specialtyH
dim issuesH
dim outcomeH
dim notesH
dim hDate
dim recH
dim followup
dim MailDate
dim InitialContact
dim ExecContact
dim AppRecieved
dim AppComplete
dim CredComplete
dim SiteReview
dim Contracted
dim WLetter
dim Priority
dim hVolume
dim iStatus
dim Source
dim Progress
dim addendum1
dim addendum2
dim addendum3
dim addendum4
dim followupI
dim MailDateI
dim InitialContactI
dim ExecContactI
dim AppRecievedI
dim AppCompleteI
dim CredCompleteI
dim SiteReviewI
dim ContractedI
dim WLetterI
dim PriorityI
dim hVolumeI
dim iStatusI
dim SourceI
dim ProgressI
dim ContrReceived
dim ForwardApp
dim ForwardContr
dim ContrReceivedI
dim ForwardAppI
dim ForwardContrI
dim addendum1I
dim addendum2I
dim addendum3I
dim addendum4I
provId=Request.QueryString("providerId")
set con=server.CreateObject("ADODB.Connection")
con.Open Application("cstr")
set rs1=server.CreateObject("ADODB.Recordset")
rs1.ActiveConnection=con
if not isnumeric(provId) then
errorMessage="Invalid Provider requested"
else
if clng(provId)<0 then
errorMessage="Invalid Provider requested"
else
rs1.Open "SELECT Providers.LName,Providers.FName, Providers.MI, tblAdmin.fldFirstName, tblAdmin.fldLastName, Providers.GroupID, Providers.ssn, Providers.Spec1, Providers.Spec2, Providers.Spec3, Providers.Spec4 " &_
" FROM Providers LEFT JOIN tblAdmin ON Providers.createdby = tblAdmin.fldID " &_
" WHERE (Providers.ProvID=" & provId & ") AND (Providers.deleted=0);"
if rs1.EOF then
errorMessage="Invalid Provider requested"
else
provName=rs1(0) & ", " & rs1(1) & " " & rs1(2)
createdby=rs1(3) & " " & rs1(4)
GroupId=rs1(5)
ssn=rs1(6)
specId(1)=rs1(7)
specId(2)=rs1(8)
specId(3)=rs1(9)
specId(4)=rs1(10)
end if
rs1.Close
if errorMessage="" then
rs1.Open "SELECT Groups.GroupName,Groups.Loc1Phone,Loc1Contact FROM Groups WHERE (Groups.GroupID=" & GroupId & ");"
if not rs1.EOF then
GroupName=rs1(0)
Loc1Phone=rs1(1)
Loc1Contact=rs1(2)
end if
rs1.Close
rs1.Open "Select SpecialtyDesc from specialities where SpecCode=" & specId(1) & " or SpecCode=" & specId(2) & " or SpecCode=" & specId(3) & " order by SpecialtyDesc"
do until rs1.EOF or i=4
i=i+1
specName(i)=rs1(0) & ""
rs1.MoveNext
loop
rs1.Close
for i=1 to 4
if specName(i)="" then
specName(i)="n/a"
end if
next
end if
if errorMessage="" then
if Request.Form("Submit")="Submit" then
' fname=formatEntry(Request.Form("fname"))
' lname=formatEntry(Request.Form("lname"))
' SSN=formatEntry(Request.Form("SSN"))
' tel=formatEntry(Request.Form("tel"))
' email=formatEntry(Request.Form("email"))
status=formatEntry(Request.Form("status"))
specialty=formatEntry(Request.Form("specialty"))
issues=formatEntry(Request.Form("issues"))
outcome=formatEntry(Request.Form("outcome"))
notes=formatEntry(Request.Form("notes"))
followup=formatDate(request.Form("followup"))
MailDate=formatDate(request.Form("MailDate"))
InitialContact=formatDate(request.Form("InitialContact"))
ExecContact=formatDate(request.Form("ExecContact"))
AppRecieved=formatDate(request.Form("AppRecieved"))
AppComplete=formatDate(request.Form("AppComplete"))
CredComplete=formatDate(request.Form("CredComplete"))
SiteReview=formatDate(request.Form("SiteReview"))
Contracted=formatDate(request.Form("Contracted"))
WLetter=formatDate(request.Form("WLetter"))
ContrReceived=formatDate(request.Form("ContrReceived"))
ForwardApp=formatDate(request.Form("ForwardApp"))
ForwardContr=formatDate(request.Form("ForwardContr"))
Priority=request.Form("Priority")
hVolume=request.Form("hVolume")
iStatus=request.Form("iStatus")
Source=request.Form("Source")
Progress=request.Form("Progress")
addendum1=request.Form("addendum1")
addendum2=request.Form("addendum2")
addendum3=request.Form("addendum3")
addendum4=request.Form("addendum4")
con.Execute "insert into credentials (providerId, groupId, createdby, firstName, LastName, tel, email,status, issues, outcome, notes, followup, MailDate, InitialContact, ExecContact, AppRecieved, AppComplete, CredComplete, SiteReview, Contracted, WLetter, Priority, hVolume, iStatus, Source, Progress,ContrReceived,ForwardApp,ForwardContr,addendum1,addendum2,addendum3,addendum4) " &_
" values (" & provId & ",'" & GroupId & "','" & user & "','" & fname & "','" & lname & "','" & tel & "','" & email & "','" & status & "','" & issues & "','" & outcome & "','" & notes & "'," & followup & "," & MailDate & "," & InitialContact & "," & ExecContact & "," & AppRecieved & "," & AppComplete & "," & CredComplete & "," & SiteReview & "," & Contracted & "," & WLetter & ",'" & Priority & "','" & hVolume & "','" & iStatus & "','" & Source & "','" & Progress & "'," & ContrReceived & "," & ForwardApp & "," & ForwardContr & ",'" & addendum1 & "','" & addendum2 & "','" & addendum3 & "','" & addendum4 & "')"
end if
end if
rs1.Open "SELECT top 1 followup, MailDate, InitialContact, ExecContact, AppRecieved, AppComplete, CredComplete, SiteReview, Contracted, WLetter, Priority, hVolume, iStatus, Source, Progress,ContrReceived,ForwardApp,ForwardContr,addendum1,addendum2,addendum3,addendum4 " &_
" FROM credentials WHERE ProviderId=" & provId & " order by id desc;"
if not rs1.EOF then
followupI=rs1(0)
MailDateI=rs1(1)
InitialContactI=rs1(2)
ExecContactI=rs1(3)
AppRecievedI=rs1(4)
AppCompleteI=rs1(5)
CredCompleteI=rs1(6)
SiteReviewI=rs1(7)
ContractedI=rs1(8)
WLetterI=rs1(9)
PriorityI=rs1(10)
hVolumeI=rs1(11)
iStatusI=rs1(12)
SourceI=rs1(13)
ProgressI=rs1(14)
ContrReceivedI=rs1(15)
ForwardAppI=rs1(16)
ForwardContrI=rs1(17)
addendum1I=rs1(18)
addendum2I=rs1(19)
addendum3I=rs1(20)
addendum4I=rs1(21)
end if
rs1.Close
end if
end if
%>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function btnPrevClick()
{
var intCurrPage;
intCurrPage = parseInt(document.track.trackpage.value);
if(intCurrPage > 1 ) document.track.trackpage.value = intCurrPage - 1;
document.track.submit();
}
function btnNextClick()
{
var intCurrPage;
intCurrPage = parseInt(document.track.trackpage.value);
document.track.trackpage.value = intCurrPage + 1;
document.track.submit();
}
//-->
</script>
<h4>Add Practitioner Tracking Information</h4>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="94%" id="AutoNumber1">
<tr>
<td width="25%">
<a href="providerlist.asp?GroupID=<%=GroupId%>">Back to Practitioner List</a></td>
<td width="25%"> <a href="addtracking.asp?GroupID=<%=GroupId%>">Back
to Group Info</a></td>
<td width="25%"><a href="RecruiterGroupList.asp">Back to Group List</a></td>
<td width="25%"> </td>
</tr>
</table>
<%if errorMessage="" then%>
<form method="POST" action="credtracking.asp?providerId=<%=Request.QueryString("providerId")%>">
<table border="0" width="306" height="577">
<tr>
<td width="100" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>Group Id:</b></td>
<td width="162" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="21" ><%=GroupId%> </td>
<td width="147" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>Group Name:</b></td>
<td width="381" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="5" height="21" ><%=GroupName%> </td>
</tr>
<tr>
<td width="94" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="40" >
<b>Provider Id:</b></td>
<td width="297" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="40" ><%=provId%></td>
<td width="173" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="40" >
<b>Practitioner Name:</b></td>
<td width="206" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="5" height="40" ><%=provName%></td>
</tr>
<tr>
<td width="94" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>ContactName:</b></td>
<td width="297" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="21" ><%=Loc1Contact%> </td>
<td width="173" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>ContactNumber:</b></td>
<td width="206" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"colspan="5" height="21" ><%=Loc1Phone%> </td>
</tr>
<tr>
<td width="94" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>SSN:</b></td>
<td width="297" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="21" ><%=ssn%> </td>
<td width="173" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" >
<b>Recruiter:</b></td>
<td width="206" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1"colspan="5" height="21" ><%=createdby%> </td>
</tr>
<tr>
<td width="94" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="27" >
<b>Specialty:</b></td>
<td width="550" colspan="8" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="27" >
<table border="0" width="100%">
<tr>
<td width="30%"> <%=specName(1)%></td>
<td width="33%"> <%=specName(2)%></td>
<td width="20%"> <%=specName(3)%></td>
<td width="17%"> <%=specName(4)%></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="644" colspan="9" style="border-left-width: 1; border-right-width: 1; border-top-style: solid; border-top-width: 1" bgcolor="#0066CC" height="20" >
<p align="center"><font color="#FFFFFF"><b>Enter Practitioner Tracking Information Below</b></font></td>
</tr>
<!--New entries-->
<tr>
<td width="94" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="43" >
<b>Priority:</b></td>
<td width="31" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="43" >
<select size="1" name="priority">
<option value="A">A</option>
<%if PriorityI="B" then%>
<option value="B" selected>B</option>
<%else%>
<option value="B">B</option>
<%end if%>
<%if PriorityI="C" then%>
<option value="C" selected>C</option>
<%else%>
<option value="C">C</option>
<%end if%>
</select>
<td width="120" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="43" >
<b>High Volume?</b></td>
<td width="181" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="3" height="43" >
<%if hVolumeI="yes" then%>
<input type="checkbox" name="hVolume" value="yes" checked>
<%else%>
<input type="checkbox" name="hVolume" value="yes">
<%end if%>
Yes (checked)
</td>
<td width="140" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="43" >
<b>Progress:</b></td>
<td width="204" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="43">
<select size="1" name="Progress">
<option value="InProgress">InProgress</option>
<%if ProgressI="Received" then%>
<option value="Received" selected>Received</option>
<%else%>
<option value="Received">Received</option>
<%end if%>
<%if ProgressI="Declined" then%>
<option value="Declined" selected>Declined</option>
<%else%>
<option value="Declined">Declined</option>
<%end if%>
<%if ProgressI="Retired" then%>
<option value="Retired" selected>Retired</option>
<%else%>
<option value="Retired">Retired</option>
<%end if%>
<%if ProgressI="UnableToLocate" then%>
<option value="UnableToLocate" selected>UnableToLocate</option>
<%else%>
<option value="UnableToLocate">UnableToLocate</option>
<%end if%>
<%if ProgressI="Moved" then%>
<option value="Moved" selected>Moved</option>
<%else%>
<option value="Moved">Moved</option>
<%end if%>
<%if ProgressI="NotStarted" then%>
<option value="NotStarted" selected>NotStarted</option>
<%else%>
<option value="NotStarted">NotStarted</option>
<%end if%>
<%if ProgressI="Invalid" then%>
<option value="Invalid" selected>Invalid</option>
<%else%>
<option value="Invalid">Invalid</option>
<%end if%>
</select></td>
</tr>
<tr>
<td width="165" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="25" >
<b>Initial Status:</b></td>
<td width="190" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="25">
<select size="1" name="iStatus">
<option value="Gap">Gap</option>
<%if iStatusI="GBH" then%>
<option value="GBH" selected>GBH</option>
<%else%>
<option value="GBH</option>
<%end if%>
<%if iStatusI="STP" then%>
<option value="STP" selected>STP</option>
<%else%>
<option value="STP">STP</option>
<%end if%>
<%if iStatusI="UHC" then%>
<option value="UHC" selected>UHC</option>
<%else%>
<option value="UHC">UHC</option>
<%end if%>
<%if iStatusI="NewRecruit" then%>
<option value="NewRecruit" selected>NewRecruit</option>
<%else%>
<option value="NewRecruit">NewRecruit</option>
<%end if%>
</select>
</td>
<td width="122" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="25" >
<b>Source:</b></td>
<td width="232" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="3" height="25" >
<select size="1" name="Source">
<option value="UHC">UHC</option>
<%if SourceI="CMS" then%>
<option value="CMS" selected>CMS</option>
<%else%>
<option value="CMS">CMS</option>
<%end if%>
<%if SourceI="OtherCompetitor" then%>
<option value="OtherCompetitor" selected>OtherCompetitor</option>
<%else%>
<option value="OtherCompetitor">OtherCompetitor</option>
<%end if%>
</select>
</td>
<td width="85" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="25" >
<b>MailDate:</b></td>
<td width="119" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="25" >
<input type="text" name="MailDate" size="10" value="<%=MailDateI%>" maxlength=10></td>
</tr>
<tr>
<td width="108" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="25" >
<b>InitialContact:</b></td>
<td width="104" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="25" >
<input type="text" name="InitialContact" size="10" value="<%=InitialContactI%>" maxlength=10></td>
<td width="122" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="2" height="25" >
<b>ExecContact:</b></td>
<td width="232" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="3" height="25" >
<input type="text" name="ExecContact" size="10" value="<%=ExecContactI%>" maxlength=10></td>
<td width="85" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="25" >
<b>AppReceived:</b></td>
<td width="119" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="25" >
<input type="text" name="AppRecieved" size="10" value="<%=AppRecievedI%>" maxlength=10></td>
</tr>
<tr>
<td width="106" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" rowspan="2" height="36" bordercolor="#C0C0C0" bgcolor="#C0C0C0" >
<b>ContrReceived</b>:</td>
<td width="106" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" rowspan="2" height="36" bordercolor="#C0C0C0" bgcolor="#C0C0C0" >
<input type="text" name="ContrReceived" size="10" value="<%=ContrReceivedI%>" maxlength=10>
</td>
<td width="226" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="3" height="11" align="center" bordercolor="#C0C0C0" bgcolor="#C0C0C0" >
<p align="left"><%if addendum1I="yes" then%><font size="2">LOI </font>
<input type="checkbox" name="addendum1" value="yes" checked>
<%else%>
<input type="checkbox" name="addendum1" value="yes">
<%end if%>
</td>
<td width="252" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="11" align="center" colspan="2" bordercolor="#C0C0C0" bgcolor="#C0C0C0" >
<p align="left">
<font size="2">Amend</font><font size="1">
<%if addendum3I="yes" then%>
<input type="checkbox" name="addendum3" value="yes" checked>
<%else%>
<input type="checkbox" name="addendum3" value="yes">
<%end if%>
</td>
<td width="80" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" rowspan="2" height="36" >
<b>ForwardApp:</b></td>
<td width="119" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" rowspan="2" height="36" >
<input type="text" name="ForwardApp" size="10" value="<%=ForwardAppI%>" maxlength=10></td>
</tr>
<tr>
<td width="226" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" colspan="3" height="21" align="center" bordercolor="#C0C0C0" bgcolor="#C0C0C0" >
<p align="left">
<font size="2">Contr</font><font size="1">
<%if addendum2I="yes" then%>
<input type="checkbox" name="addendum2" value="yes" checked>
<%else%>
<input type="checkbox" name="addendum2" value="yes">
<%end if%>
</td>
<td width="252" style="border-style: solid; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1" height="21" align="center" colspan="2" bordercolor="#C0C0C0" bgcolor="#C0C0C0" >
<p align="left">
<font size="2">Other</font><font size="1">
<%if addendum4I="yes" then%>
<input type="checkbox" name="addendum4" value="yes" checked>
<%else%>
<input type="checkbox" name="addendum4" value="yes">
<%end if%>
</td>
</tr>
<tr>
<!--New entries-->
<td width="644" colspan="9" style="border-left-width: 1; border-right-width: 1; border-top-style: solid; border-top-width: 5; padding-top: 1; padding-bottom: 1" height="5" >
<p></p>
<p></p>
<p>
</td>
</tr>
<tr>
<td width="94" height="22"><b>TypeContact:</b></td>
<td width="297" colspan="6" height="22"><b><select name="status" size="1">
<option value="" selected>Select</option>
<option value="Phone">Phone</option>
<option value="Visit">Visit</option>
<option value="Update">Update</option>
<option value="Mail">Mail</option>
</select></b></td>
<td width="140" height="22"></td>
<td width="204" height="22"></td>
</tr>
<tr>
<td width="94" height="23"><b>Barriers:</b></td>
<td width="367" colspan="5" height="23"><b><select name="Issues" size="1">
<option value="" selected>Select</option>
<option value="FeeSchedule">FeeSchedule</option>
<option value="Contract">Contract</option>
<option value="AdminHassles">AdminHassles</option>
<option value="ManagedCare">ManagedCare</option>
<option value="AcceptsNoInsurance">AcceptsNoInsurance</option>
<option value="FullPractice">FullPractice</option>
</select></b></td>
<td width="72" height="23"><b>Outcome:</b></td>
<td width="204" height="23"><b><select name="Outcome" size="1">
<option value="" selected>Select</option>
<option value="LeftMsg">LeftMsg</option>
<option value="ContactPositive">ContactPositive</option>
<option value="ContactNegative">ContactNegative</option>
</select> </b>
</td>
</tr>
<tr>
<td width="94" height="103"><b>Notes:</b></td>
<td width="562" colspan="8" height="103">
<textarea cols="74" rows="5" name="Notes"></textarea>
</td>
</tr>
<tr>
<td width="94" height="27"></td>
<td width="109" colspan="2" align="right" height="27"> <input type="hidden" value="Submit" name="Submit">
<b>Follow-up:</b></td>
<td width="236" colspan="3" align="right" height="27"><input type="text" name="followup" size="10" value="<%=followupI%>"> </td>
<td width="219" colspan="3" align="right" height="27">
<input type="submit" value="Update" name="B1"></td>
</tr>
</table>
</form>
<h4>Contact History</h4>
<%
con.CursorLocation = 3 'adUseClient
rs1.ActiveConnection=con
rs1.Open "SELECT credentials.dateCreated, credentials.status, credentials.issues, credentials.outcome, tblAdmin.fldFirstName, tblAdmin.fldLastName, credentials.notes,credentials.followup, credentials.MailDate, credentials.InitialContact, credentials.ExecContact, credentials.AppRecieved, credentials.AppComplete, credentials.CredComplete, credentials.SiteReview, credentials.Contracted, credentials.WLetter, credentials.Priority, credentials.hVolume, credentials.iStatus, credentials.Source, credentials.Progress,credentials.ContrReceived,credentials.ForwardApp,credentials.ForwardContr,credentials.Addendum1,Addendum2,Addendum3,Addendum4 " &_
" FROM credentials LEFT JOIN tblAdmin ON credentials.createdby = tblAdmin.fldID " &_
" WHERE (credentials.providerId=" & provId & ") " &_
" ORDER BY credentials.dateCreated DESC , credentials.id DESC;"
if rs1.EOF then
%>
<STRONG> No History Available</STRONG>
<%else
rs1.PageSize = iPageSize
iCurrentPage = Request("trackpage")
if not isnumeric(iCurrentPage) then
if cint(iCurrentPage)<1 then
iCurrentPage=1
end if
end if
If IsEmpty( iCurrentPage ) or iCurrentPage="" then
iCurrentPage = 1
else
iCurrentPage = CInt(iCurrentPage)
if iCurrentPage > rs1.PageCount then
iCurrentPage = rs1.PageCount
end if
end if
rs1.AbsolutePage = iCurrentPage
iCounter = 1
WHILE ( NOT rs1.EOF ) AND ( iCounter <= rs1.PageSize)
hDate=rs1(0)
statusH=rs1(1)
issuesH=rs1(2)
outcomeH=rs1(3)
recH=rs1(4) & " " & rs1(5)
notesH=rs1(6)
followupI=rs1(7)
MailDateI=rs1(8)
InitialContactI=rs1(9)
ExecContactI=rs1(10)
AppRecievedI=rs1(11)
AppCompleteI=rs1(12)
CredCompleteI=rs1(13)
SiteReviewI=rs1(14)
ContractedI=rs1(15)
WLetterI=rs1(16)
PriorityI=rs1(17)
hVolumeI=rs1(18)
iStatusI=rs1(19)
SourceI=rs1(20)
ProgressI=rs1(21)
ContrReceivedI=rs1(22)
ForwardAppI=rs1(23)
ForwardContrI=rs1(24)
Addendum1=rs1(25)
Addendum2=rs1(26)
Addendum3=rs1(27)
Addendum4=rs1(28)
%>
<table border="1" width="653" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" cellspacing="0">
<tr>
<td width="20%" valign="top"><b>Date:</b></td>
<td width="20%" valign="top"><b>TypeContact:</b></td>
<td width="20%" valign="top"><b>Issues:</b></td>
<td width="20%" valign="top"><b>Outcome:</b></td>
<td width="20%" valign="top"><b>Entered by:</b></td>
</tr>
<tr>
<td width="20%" valign="top"><%=hDate%>
</td>
<td width="20%" valign="top"><%=statusH%>
</td>
<td width="20%" valign="top"><%=issuesH%>
</td>
<td width="20%" valign="top"><%=outcomeH%>
</td>
<td width="20%" valign="top"><%=recH%>
</td>
</tr>
<tr>
<td width="20%" valign="top"><b>Initial Status:</b></td>
<td width="20%" valign="top"><b>Progress:</b></td>
<td width="20%" valign="top"> </td>
<td width="20%" valign="top"> </td>
<td width="20%" valign="top"> </td>
</tr>
<tr>
<td width="20%" valign="top"><%=istatusI%>
</td>
<td width="20%" valign="top"><%=progressI%>
</td>
<td width="20%" valign="top"> </td>
<td width="20%" valign="top"> </td>
<td width="20%" valign="top"> </td>
</tr>
<tr>
<td width="100%" colspan="5" valign="top"><b>Notes :</b><%=notesH%>
</td>
</tr>
</table>
<%iCounter = iCounter + 1
rs1.MoveNext
wend
%>
<p>
<p><form method="post" id="track" name="track" action="credtracking.asp?providerId=<%=Request.QueryString("providerId")%>">
<input TYPE="HIDDEN" id="trackpage" name="trackpage" value="<%=iCurrentPage%>">
<font face="Tahoma" size="2"><b>Page <%=iCurrentPage%> of <%=rs1.PageCount%></b>
<p>
<%
if rs1.PageCount>1 then
IF iCurrentPage<rs1.PageCount and iCurrentPage>1 THEN
Response.Write("<INPUT TYPE=BUTTON VALUE='<<Back' onclick='btnPrevClick()' id=btnPrev name=btnPrev> <INPUT TYPE=BUTTON VALUE='Next>>' onclick='btnNextClick()' id=btnNext name=btnNext>")
end if
if iCurrentPage=1 and iCurrentPage<rs1.PageCount THEN
Response.Write("<INPUT TYPE=BUTTON VALUE='Next>>' onclick='btnNextClick()' id=btnNext name=btnNext>")
end if
IF iCurrentPage=rs1.PageCount and iCurrentPage>1 THEN
Response.Write("<INPUT TYPE=BUTTON VALUE='<<Back' onclick='btnPrevClick()' id=btnPrev name=btnPrev>")
end if
end if%>
</form>
<%end if
rs1.Close
%>
<%else%>
<%=errorMessage%>
<%end if%>
<%
set rs1=nothing
con.Close
set con=nothing%>
<p> </p>
<p> </p>
</font>
<!--#include virtual="/app/footer.asp"-->
Could it have anything to do with different asp versions on the server. . . I'm told it was moved from a Win2k to a Win2k, so I was guessing it wouldn't be a prob. The only other significant difference is that I'm using a DSN now instead of DSN-Less. . .but the connection works!
_____________________________
Something witty.
| |
|
 New Messages |
 No New Messages |
 Hot Topic w/ New Messages |
 Hot Topic w/o New Messages |
 Locked w/ New Messages |
 Locked w/o New Messages |
|
Post New Thread
Reply to Message
Post New Poll
Submit Vote
Delete My Own Post
Delete My Own Thread
Rate Posts
|
|
|
Printable Version 
k¥ 
Sorry!
