![]() |
![]() |
![]() |
||||||||||||
![]() |
|
![]() |
||||||||||||
<%
' *** Edit Operations: declare variables
' Dimension Local Variables
Dim MM_SQLQuery
Dim MM_UpdatePartnerDetails
Dim iCnt
Dim ErrMsg
' Check for Button Press
If (CStr(Request("MM_Insert")) <> "") And ErrMsg = "" Then
MM_SQLQuery = "INSERT INTO Partner (PartnerID, eMailAddress, CategoryID, Name, Description, WebsiteAddress, LinkToSMartBookers, SetUpDate) "
MM_SQLQuery = MM_SQLQuery & " VALUES('" & Session.SessionID & "', " & Request.Form("eMailAddress") & "', " & Request.Form("CategoryID") & ", '" & Request.Form("txtName") & "', '" & Request.Form("txtDescription") & "'"
MM_SQLQuery = MM_SQLQuery & ", '" & Request.Form("txtWebAddress") & "', '" & Request.Form("txtRepLink") & "', '" & FormatDateTime(Date, 1) & "')"
Response.Write MM_SQLQuery
Set MM_UpdatePartnerDetails = Server.CreateObject("ADODB.Command")
MM_UpdatePartnerDetails.ActiveConnection = Connect
MM_UpdatePartnerDetails.CommandText = MM_SQLQuery
MM_UpdatePartnerDetails.Execute
MM_UpdatePartnerDetails.ActiveConnection.Close
Set MM_UpdatePartnerDetails = Nothing
' Clean Up
Response.Redirect("PartnerLinks.asp")
End If
%>
<%
' *** Check for Existing Record
sPartnerID = ""
Set uRecSnap = Server.CreateObject("adodb.Recordset")
sSQL = "SELECT PartnerID FROM Partner WHERE PartnerID = '" & Session.SessionID & "'"
uRecSnap.Open sSQL, Connect
Do Until uRecSnap.EOF
sPartnerID = uRecSnap("PartnerID")
uRecSnap.MoveNext
Loop
uRecSnap.Close
Set uRecSnap = Nothing
If sPartnerID <> "" Then
Response.Redirect("Partner_EditWebsiteLink.asp?PartnerID=" & sPartnerID)
End If
%>
Add Partner - Link InstructionsAn essential part of any business is co-operation and sharing of information.SmartBookers has a policy of encouraging these ethics and as such we are happy to promote any caravan related business on our website network. We currently
manage multiple sites in the caravan rental business and a link here will be
published in all these sites as well as part of our many emails that are sent
to holiday makers. > Enter the details of the link you have made to SmartBookers - We will check this within 10 days after you confirm your details. > Place the following html text
in your website - This will provide a link to the Home
Page of SmartBookers.
Thank you for helping us help you...... |
||||||||||||||
|
||||||||||||||
|
||||||||||||||