|
 |
asp_databases thread: Database update question
Message #1 by Andy Johnson <lysaer@d...> on Tue, 24 Oct 2000 22:40:48 -0500
|
|
Ok, gang, I'm sure this is a simple mistake again, but I can't get this page to generate
an error using Ken's error code. I'm trying to update a database record, and this is the
code I'm using. I can't get a response out of ANY of my response.writes, be it the error
detail code, or the very first response.write, or my response.write(SQL).
Help?
<%
response.buffer = true
on error resume next
'objConn.execute(strSQL)
If err.number <> 0 then
Response.Write(err.number & " " & err.description)
err.clear
End if
response.write "Argh!"
%>
<!--#include file="Include/jmailCISupdate.asp"-->
<%
strPersonaName = replace(request.Form("CISNewName"), "'", "''")
'strOwnerName = session("MemberName"), "'", "''")
If err.number <> 0 then
Response.Write(err.number & " " & err.description)
err.clear
End if
ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=d:\www\kadanzer\www\database\kazdb2.mdb"
set my_Conn= Server.CreateObject("ADODB.Connection"), "'", "''")
my_Conn.Open ConnString
If err.number <> 0 then
Response.Write(err.number & " " & err.description)
err.clear
End if
'******************* New Persona sends email to Whit and
PAT**********************************
dim strbody, strsubject
strbody= "A CIS has been updated in the website database!" &CRLF
strbody=strbody & "" &CRLF
strbody=strbody & "Member " & strOwnerName & space(1) & "has updated the persona of " &
replace(request.form("CISNewName"), "'", "''") & " in the web database." &CRLF
If err.number <> 0 then
Response.Write(err.number & " " & err.description)
err.clear
End if
strsubject="A CIS has been updated in the website database!"
call sendmail(strbody, strsubject)
'***********************************************************************************************
If err.number <> 0 then
Response.Write(err.number & " " & err.description)
err.clear
End if
SQL = "UPDATE tblCIS SET "
SQL=SQL & " CISAdoptable = " & request.form("CISNewAdoptable")
SQL=SQL & " CISHistory = " & replace(request.form("CISNewHistory"), "'", "''")
SQL=SQL & " CISOwner = " & replace(request.form("CISNewOwner"), "'", "''")
SQL=SQL & " CISDateMonth = " & request.form("CISNewDateMonth")
SQL=SQL & " CISDateDay = " & request.form("CISNewDateDay")
SQL=SQL & " CISDateYear = " & request.form("CISNewDateYear")
SQL=SQL & " CISName = " & replace(request.form("CISNewName"), "'", "''")
SQL=SQL & " CISGender = " & request.form("CISNewGender")
SQL=SQL & " CISAge = " & request.form("CISNewAge")
SQL=SQL & " CISBirthDate = " & replace(request.form("CISNewBirthDate"), "'", "''")
SQL=SQL & " CISOrigin = " & replace(request.form("CISNewOrigin"), "'", "''")
SQL=SQL & " CISRank = " & replace(request.form("CISNewRank"), "'", "''")
SQL=SQL & " CISLocation = " & replace(request.form("CISNewLocation"), "'", "''")
SQL=SQL & " CISHairColor = " & replace(request.form("CISNewHairColor"), "'", "''")
SQL=SQL & " CISHairStyle = " & replace(request.form("CISNewHairStyle"), "'", "''")
SQL=SQL & " CISEyes = " & replace(request.form("CISNewEyes"), "'", "''")
SQL=SQL & " CISBuild = " & replace(request.form("CISNewNewBuild"), "'", "''")
SQL=SQL & " CISPhysical = " & replace(request.form("CISPNewhysical"), "'", "''")
SQL=SQL & " CISVoice = " & replace(request.form("CISNewVoice"), "'", "''")
SQL=SQL & " CISScars = " & replace(request.form("CISNewScars"), "'", "''")
SQL=SQL & " CISHandedness = " & replace(request.form("CISNewHandedness"), "'", "''")
SQL=SQL & " CISClothing = " & replace(request.form("CISNewClothing"), "'", "''")
SQL=SQL & " CISJewelry = " & replace(request.form("CISNewJewelry"), "'", "''")
SQL=SQL & " CISSpecialPossessions = " & replace(request.form("CISNewSpecialPossessions")
SQL=SQL & " CISFamily = " & replace(request.form("CISNewFamily"), "'", "''")
SQL=SQL & " CISFriends = " & replace(request.form("CISNewFriends"), "'", "''")
SQL=SQL & " CISSexOrientation = " & replace(request.form("CISNewSexOrientation"), "'",
"''")
SQL=SQL & " CISSexRelations = " & replace(request.form("CISNewSexRelations"), "'", "''")
SQL=SQL & " CISPets = " & replace(request.form("CISNewPets"), "'", "''")
SQL=SQL & " CISSkills = " & replace(request.form("CISNewSkills"), "'", "''")
SQL=SQL & " CISHobbies = " & replace(request.form("CISNewHobbies"), "'", "''")
SQL=SQL & " CISPersonalInfo = " & replace(request.form("CISNewPersonalInfo"), "'", "''")
SQL=SQL & " CISDragonName = " & replace(request.form("CISNewDragonName"), "'", "''")
SQL=SQL & " CISDragonColor = " & replace(request.form("CISNewDragonColor"), "'", "''")
SQL=SQL & " CISDragonClutchName = " & replace(request.form("CISNewDragonClutchName"),
"'", "''")
SQL=SQL & " CISDragonClutchDate = " & replace(request.form("CISNewDragonClutchDate"),
"'", "''")
SQL=SQL & " CISDragonImpressed = " & replace(request.form("CISNewDragonImpressed"), "'",
"''")
SQL=SQL & " CISDragonAppearance = " & replace(request.form("CISNewDragonAppearance"),
"'", "''")
SQL=SQL & " CISDragonPersonalInfo = " & replace(request.form("CISNewDragonPersonalInfo"),
"'", "''")
SQL=SQL & " CISDragonAbilities = " & replace(request.form("CISNewDragonAbilities"), "'",
"''")
SQL=SQL & " CISDragonWing = " & replace(request.form("CISNewDragonWing"), "'", "''")
SQL=SQL & " CISBlurb = " & replace(request.form("CISNewBlurb"), "'", "''")
SQL=SQL & " WHERE CISName = " & request.form("CISNewName")
Response.write SQL
'my_Conn.execute(SQL)
If err.number <> 0 then
Response.Write(err.number & " " & err.description)
err.clear
End if
%>
<html>
<head>
<title>Untitled</title>
</head>
<body bgcolor="#FFFFFF" text="#990099" link="#009999" vlink="#006666" alink="#009999">
<font face="Arial, Helvetica, sans-serif" size="-1"><b>
Yay! You have successfully updated the persona of <%= request.form("CISNewName") %> !!
Return to the <a href="granted.asp">Member's page</a>.
</b>
</font>
</body>
</html>
<%
my_Conn.close
set my_Conn = nothing
%>
Message #2 by "Ken Schaefer" <ken@a...> on Wed, 25 Oct 2000 18:17:26 +1000
|
|
Andy,
Try taking out Response.Buffer = true
Is there anything in the include file that might be of interest to us?
Does anything appear on the screen?!?
Cheers
Ken
----- Original Message -----
From: "Andy Johnson" <lysaer@d...>
To: "ASP Databases" <asp_databases@p...>
Sent: Wednesday, October 25, 2000 1:40 PM
Subject: [asp_databases] Database update question
> Ok, gang, I'm sure this is a simple mistake again, but I can't get this
page to generate
> an error using Ken's error code. I'm trying to update a database record,
and this is the
> code I'm using. I can't get a response out of ANY of my response.writes,
be it the error
> detail code, or the very first response.write, or my response.write(SQL).
>
> Help?
>
> <%
> response.buffer = true
> on error resume next
> 'objConn.execute(strSQL)
>
> If err.number <> 0 then
> Response.Write(err.number & " " & err.description)
> err.clear
> End if
> response.write "Argh!"
> %>
>
> <!--#include file="Include/jmailCISupdate.asp"-->
>
> <%
>
> strPersonaName = replace(request.Form("CISNewName"), "'", "''")
> 'strOwnerName = session("MemberName"), "'", "''")
>
> If err.number <> 0 then
> Response.Write(err.number & " " & err.description)
> err.clear
> End if
>
> ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};
> DBQ=d:\www\kadanzer\www\database\kazdb2.mdb"
> set my_Conn= Server.CreateObject("ADODB.Connection"), "'", "''")
> my_Conn.Open ConnString
>
> If err.number <> 0 then
> Response.Write(err.number & " " & err.description)
> err.clear
> End if
>
> '******************* New Persona sends email to Whit and
> PAT**********************************
> dim strbody, strsubject
> strbody= "A CIS has been updated in the website database!" &CRLF
> strbody=strbody & "" &CRLF
> strbody=strbody & "Member " & strOwnerName & space(1) & "has updated the
persona of " &
> replace(request.form("CISNewName"), "'", "''") & " in the web database."
&CRLF
>
>
> If err.number <> 0 then
> Response.Write(err.number & " " & err.description)
> err.clear
> End if
>
> strsubject="A CIS has been updated in the website database!"
>
> call sendmail(strbody, strsubject)
>
>
'***************************************************************************
********************
>
> If err.number <> 0 then
> Response.Write(err.number & " " & err.description)
> err.clear
> End if
>
> SQL = "UPDATE tblCIS SET "
> SQL=SQL & " CISAdoptable = " & request.form("CISNewAdoptable")
> SQL=SQL & " CISHistory = " & replace(request.form("CISNewHistory"), "'",
"''")
> SQL=SQL & " CISOwner = " & replace(request.form("CISNewOwner"), "'", "''")
> SQL=SQL & " CISDateMonth = " & request.form("CISNewDateMonth")
> SQL=SQL & " CISDateDay = " & request.form("CISNewDateDay")
> SQL=SQL & " CISDateYear = " & request.form("CISNewDateYear")
> SQL=SQL & " CISName = " & replace(request.form("CISNewName"), "'", "''")
> SQL=SQL & " CISGender = " & request.form("CISNewGender")
> SQL=SQL & " CISAge = " & request.form("CISNewAge")
> SQL=SQL & " CISBirthDate = " & replace(request.form("CISNewBirthDate"),
"'", "''")
> SQL=SQL & " CISOrigin = " & replace(request.form("CISNewOrigin"), "'",
"''")
> SQL=SQL & " CISRank = " & replace(request.form("CISNewRank"), "'", "''")
> SQL=SQL & " CISLocation = " & replace(request.form("CISNewLocation"), "'",
"''")
> SQL=SQL & " CISHairColor = " & replace(request.form("CISNewHairColor"),
"'", "''")
> SQL=SQL & " CISHairStyle = " & replace(request.form("CISNewHairStyle"),
"'", "''")
> SQL=SQL & " CISEyes = " & replace(request.form("CISNewEyes"), "'", "''")
> SQL=SQL & " CISBuild = " & replace(request.form("CISNewNewBuild"), "'",
"''")
> SQL=SQL & " CISPhysical = " & replace(request.form("CISPNewhysical"), "'",
"''")
> SQL=SQL & " CISVoice = " & replace(request.form("CISNewVoice"), "'", "''")
> SQL=SQL & " CISScars = " & replace(request.form("CISNewScars"), "'", "''")
> SQL=SQL & " CISHandedness = " & replace(request.form("CISNewHandedness"),
"'", "''")
> SQL=SQL & " CISClothing = " & replace(request.form("CISNewClothing"), "'",
"''")
> SQL=SQL & " CISJewelry = " & replace(request.form("CISNewJewelry"), "'",
"''")
> SQL=SQL & " CISSpecialPossessions = " &
replace(request.form("CISNewSpecialPossessions")
> SQL=SQL & " CISFamily = " & replace(request.form("CISNewFamily"), "'",
"''")
> SQL=SQL & " CISFriends = " & replace(request.form("CISNewFriends"), "'",
"''")
> SQL=SQL & " CISSexOrientation = " &
replace(request.form("CISNewSexOrientation"), "'",
> "''")
> SQL=SQL & " CISSexRelations = " &
replace(request.form("CISNewSexRelations"), "'", "''")
> SQL=SQL & " CISPets = " & replace(request.form("CISNewPets"), "'", "''")
> SQL=SQL & " CISSkills = " & replace(request.form("CISNewSkills"), "'",
"''")
> SQL=SQL & " CISHobbies = " & replace(request.form("CISNewHobbies"), "'",
"''")
> SQL=SQL & " CISPersonalInfo = " &
replace(request.form("CISNewPersonalInfo"), "'", "''")
> SQL=SQL & " CISDragonName = " & replace(request.form("CISNewDragonName"),
"'", "''")
> SQL=SQL & " CISDragonColor = " &
replace(request.form("CISNewDragonColor"), "'", "''")
> SQL=SQL & " CISDragonClutchName = " &
replace(request.form("CISNewDragonClutchName"),
> "'", "''")
> SQL=SQL & " CISDragonClutchDate = " &
replace(request.form("CISNewDragonClutchDate"),
> "'", "''")
> SQL=SQL & " CISDragonImpressed = " &
replace(request.form("CISNewDragonImpressed"), "'",
> "''")
> SQL=SQL & " CISDragonAppearance = " &
replace(request.form("CISNewDragonAppearance"),
> "'", "''")
> SQL=SQL & " CISDragonPersonalInfo = " &
replace(request.form("CISNewDragonPersonalInfo"),
> "'", "''")
> SQL=SQL & " CISDragonAbilities = " &
replace(request.form("CISNewDragonAbilities"), "'",
> "''")
> SQL=SQL & " CISDragonWing = " & replace(request.form("CISNewDragonWing"),
"'", "''")
> SQL=SQL & " CISBlurb = " & replace(request.form("CISNewBlurb"), "'", "''")
> SQL=SQL & " WHERE CISName = " & request.form("CISNewName")
>
>
>
> Response.write SQL
> 'my_Conn.execute(SQL)
>
> If err.number <> 0 then
> Response.Write(err.number & " " & err.description)
> err.clear
> End if
>
> %>
> <html>
> <head>
> <title>Untitled</title>
> </head>
>
> <body bgcolor="#FFFFFF" text="#990099" link="#009999" vlink="#006666"
alink="#009999">
> <font face="Arial, Helvetica, sans-serif" size="-1"><b>
> Yay! You have successfully updated the persona of <%
request.form("CISNewName") %> !!
>
> Return to the <a href="granted.asp">Member's page</a>.
>
> </b>
> </font>
>
> --- <BR>
> NEED TECHNICAL TIPS, TOOLS, AND INSIGHTS? Is FREE okay?<BR>
> Visit EarthWeb for the latest in IT Management, Software Development, <BR>
> Web Development, Networking & Communications, and Hardware &
Systems. <BR>
> Click on http://www.earthweb.com for FREE articles, tutorials,<BR>
> and discussions from the experts.<BR>
> ---<BR>
> You are currently subscribed to asp_databases as: ken@a...<BR>
$subst('Email.Unsub')<BR>
>
> </BODY>
> </html>
>
> <%
>
>
> my_Conn.close
> set my_Conn = nothing
>
>
> %>
>
>
Message #3 by Andy Johnson <lysaer@d...> on Wed, 25 Oct 2000 07:26:38 -0500
|
|
Does the same thing with or without response.buffer...
The include file is just a jmail include file containing specifics for the email
that this page sends out...I took it out and still no dice. The only thing the page
displays is "cannot process the script" like it always does. Even your error code
doesn't output anything.
Ken Schaefer wrote:
> Andy,
>
> Try taking out Response.Buffer = true
>
> Is there anything in the include file that might be of interest to us?
>
> Does anything appear on the screen?!?
>
> Cheers
> Ken
>
> ----- Original Message -----
> From: "Andy Johnson" <lysaer@d...>
> To: "ASP Databases" <asp_databases@p...>
> Sent: Wednesday, October 25, 2000 1:40 PM
> Subject: [asp_databases] Database update question
>
> > Ok, gang, I'm sure this is a simple mistake again, but I can't get this
> page to generate
> > an error using Ken's error code. I'm trying to update a database record,
> and this is the
> > code I'm using. I can't get a response out of ANY of my response.writes,
> be it the error
> > detail code, or the very first response.write, or my response.write(SQL).
> >
> > Help?
> >
> > <%
> > response.buffer = true
> > on error resume next
> > 'objConn.execute(strSQL)
> >
> > If err.number <> 0 then
> > Response.Write(err.number & " " & err.description)
> > err.clear
> > End if
> > response.write "Argh!"
> > %>
> >
> > <!--#include file="Include/jmailCISupdate.asp"-->
> >
> > <%
> >
> > strPersonaName = replace(request.Form("CISNewName"), "'", "''")
> > 'strOwnerName = session("MemberName"), "'", "''")
> >
> > If err.number <> 0 then
> > Response.Write(err.number & " " & err.description)
> > err.clear
> > End if
> >
> > ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};
> > DBQ=d:\www\kadanzer\www\database\kazdb2.mdb"
> > set my_Conn= Server.CreateObject("ADODB.Connection"), "'", "''")
> > my_Conn.Open ConnString
> >
> > If err.number <> 0 then
> > Response.Write(err.number & " " & err.description)
> > err.clear
> > End if
> >
> > '******************* New Persona sends email to Whit and
> > PAT**********************************
> > dim strbody, strsubject
> > strbody= "A CIS has been updated in the website database!" &CRLF
> > strbody=strbody & "" &CRLF
> > strbody=strbody & "Member " & strOwnerName & space(1) & "has updated the
> persona of " &
> > replace(request.form("CISNewName"), "'", "''") & " in the web database."
> &CRLF
> >
> >
> > If err.number <> 0 then
> > Response.Write(err.number & " " & err.description)
> > err.clear
> > End if
> >
> > strsubject="A CIS has been updated in the website database!"
> >
> > call sendmail(strbody, strsubject)
> >
> >
> '***************************************************************************
> ********************
> >
> > If err.number <> 0 then
> > Response.Write(err.number & " " & err.description)
> > err.clear
> > End if
> >
> > SQL = "UPDATE tblCIS SET "
> > SQL=SQL & " CISAdoptable = " & request.form("CISNewAdoptable")
> > SQL=SQL & " CISHistory = " & replace(request.form("CISNewHistory"), "'",
> "''")
> > SQL=SQL & " CISOwner = " & replace(request.form("CISNewOwner"), "'", "''")
> > SQL=SQL & " CISDateMonth = " & request.form("CISNewDateMonth")
> > SQL=SQL & " CISDateDay = " & request.form("CISNewDateDay")
> > SQL=SQL & " CISDateYear = " & request.form("CISNewDateYear")
> > SQL=SQL & " CISName = " & replace(request.form("CISNewName"), "'", "''")
> > SQL=SQL & " CISGender = " & request.form("CISNewGender")
> > SQL=SQL & " CISAge = " & request.form("CISNewAge")
> > SQL=SQL & " CISBirthDate = " & replace(request.form("CISNewBirthDate"),
> "'", "''")
> > SQL=SQL & " CISOrigin = " & replace(request.form("CISNewOrigin"), "'",
> "''")
> > SQL=SQL & " CISRank = " & replace(request.form("CISNewRank"), "'", "''")
> > SQL=SQL & " CISLocation = " & replace(request.form("CISNewLocation"), "'",
> "''")
> > SQL=SQL & " CISHairColor = " & replace(request.form("CISNewHairColor"),
> "'", "''")
> > SQL=SQL & " CISHairStyle = " & replace(request.form("CISNewHairStyle"),
> "'", "''")
> > SQL=SQL & " CISEyes = " & replace(request.form("CISNewEyes"), "'", "''")
> > SQL=SQL & " CISBuild = " & replace(request.form("CISNewNewBuild"), "'",
> "''")
> > SQL=SQL & " CISPhysical = " & replace(request.form("CISPNewhysical"), "'",
> "''")
> > SQL=SQL & " CISVoice = " & replace(request.form("CISNewVoice"), "'", "''")
> > SQL=SQL & " CISScars = " & replace(request.form("CISNewScars"), "'", "''")
> > SQL=SQL & " CISHandedness = " & replace(request.form("CISNewHandedness"),
> "'", "''")
> > SQL=SQL & " CISClothing = " & replace(request.form("CISNewClothing"), "'",
> "''")
> > SQL=SQL & " CISJewelry = " & replace(request.form("CISNewJewelry"), "'",
> "''")
> > SQL=SQL & " CISSpecialPossessions = " &
> replace(request.form("CISNewSpecialPossessions")
> > SQL=SQL & " CISFamily = " & replace(request.form("CISNewFamily"), "'",
> "''")
> > SQL=SQL & " CISFriends = " & replace(request.form("CISNewFriends"), "'",
> "''")
> > SQL=SQL & " CISSexOrientation = " &
> replace(request.form("CISNewSexOrientation"), "'",
> > "''")
> > SQL=SQL & " CISSexRelations = " &
> replace(request.form("CISNewSexRelations"), "'", "''")
> > SQL=SQL & " CISPets = " & replace(request.form("CISNewPets"), "'", "''")
> > SQL=SQL & " CISSkills = " & replace(request.form("CISNewSkills"), "'",
> "''")
> > SQL=SQL & " CISHobbies = " & replace(request.form("CISNewHobbies"), "'",
> "''")
> > SQL=SQL & " CISPersonalInfo = " &
> replace(request.form("CISNewPersonalInfo"), "'", "''")
> > SQL=SQL & " CISDragonName = " & replace(request.form("CISNewDragonName"),
> "'", "''")
> > SQL=SQL & " CISDragonColor = " &
> replace(request.form("CISNewDragonColor"), "'", "''")
> > SQL=SQL & " CISDragonClutchName = " &
> replace(request.form("CISNewDragonClutchName"),
> > "'", "''")
> > SQL=SQL & " CISDragonClutchDate = " &
> replace(request.form("CISNewDragonClutchDate"),
> > "'", "''")
> > SQL=SQL & " CISDragonImpressed = " &
> replace(request.form("CISNewDragonImpressed"), "'",
> > "''")
> > SQL=SQL & " CISDragonAppearance = " &
> replace(request.form("CISNewDragonAppearance"),
> > "'", "''")
> > SQL=SQL & " CISDragonPersonalInfo = " &
> replace(request.form("CISNewDragonPersonalInfo"),
> > "'", "''")
> > SQL=SQL & " CISDragonAbilities = " &
> replace(request.form("CISNewDragonAbilities"), "'",
> > "''")
> > SQL=SQL & " CISDragonWing = " & replace(request.form("CISNewDragonWing"),
> "'", "''")
> > SQL=SQL & " CISBlurb = " & replace(request.form("CISNewBlurb"), "'", "''")
> > SQL=SQL & " WHERE CISName = " & request.form("CISNewName")
> >
> >
> >
> > Response.write SQL
> > 'my_Conn.execute(SQL)
> >
> > If err.number <> 0 then
> > Response.Write(err.number & " " & err.description)
> > err.clear
> > End if
> >
> > %>
> > <html>
> > <head>
> > <title>Untitled</title>
> > </head>
> >
> > <body bgcolor="#FFFFFF" text="#990099" link="#009999" vlink="#006666"
> alink="#009999">
> > <font face="Arial, Helvetica, sans-serif" size="-1"><b>
> > Yay! You have successfully updated the persona of <%
> request.form("CISNewName") %> !!
> >
> > Return to the <a href="granted.asp">Member's page</a>.
> >
> > </b>
> > </font>
> >
> > </BODY>
> > </html>
> >
> > <%
> >
> >
> > my_Conn.close
> > set my_Conn = nothing
> >
> >
> > %>
> >
> >
Message #4 by "Nemesys70 Nemesys70" <nemesys70@h...> on Wed, 25 Oct 2000 20:39:42 GMT
|
|
It sounds like no script is being executed. Is your file ".asp"?
Neil
>From: Andy Johnson <lysaer@d...>
>Reply-To: "ASP Databases" <asp_databases@p...>
>To: "ASP Databases" <asp_databases@p...>
>Subject: [asp_databases] Database update question
>Date: Tue, 24 Oct 2000 22:40:48 -0500
>
>Ok, gang, I'm sure this is a simple mistake again, but I can't get this
>page to generate
>an error using Ken's error code. I'm trying to update a database record,
>and this is the
>code I'm using. I can't get a response out of ANY of my response.writes, be
>it the error
>detail code, or the very first response.write, or my response.write(SQL).
>
>Help?
>
><%
>response.buffer = true
>on error resume next
>'objConn.execute(strSQL)
>
>If err.number <> 0 then
> Response.Write(err.number & " " & err.description)
> err.clear
>End if
>response.write "Argh!"
>%>
>
><!--#include file="Include/jmailCISupdate.asp"-->
>
><%
>
>strPersonaName = replace(request.Form("CISNewName"), "'", "''")
>'strOwnerName = session("MemberName"), "'", "''")
>
>If err.number <> 0 then
> Response.Write(err.number & " " & err.description)
> err.clear
>End if
>
>ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};
>DBQ=d:\www\kadanzer\www\database\kazdb2.mdb"
>set my_Conn= Server.CreateObject("ADODB.Connection"), "'", "''")
>my_Conn.Open ConnString
>
>If err.number <> 0 then
> Response.Write(err.number & " " & err.description)
> err.clear
>End if
>
>'******************* New Persona sends email to Whit and
>PAT**********************************
>dim strbody, strsubject
>strbody= "A CIS has been updated in the website database!" &CRLF
>strbody=strbody & "" &CRLF
>strbody=strbody & "Member " & strOwnerName & space(1) & "has updated the
>persona of " &
>replace(request.form("CISNewName"), "'", "''") & " in the web database."
>&CRLF
>
>
>If err.number <> 0 then
> Response.Write(err.number & " " & err.description)
> err.clear
>End if
>
>strsubject="A CIS has been updated in the website database!"
>
>call sendmail(strbody, strsubject)
>
>'***********************************************************************************************
>
>If err.number <> 0 then
> Response.Write(err.number & " " & err.description)
> err.clear
>End if
>
>SQL = "UPDATE tblCIS SET "
>SQL=SQL & " CISAdoptable = " & request.form("CISNewAdoptable")
>SQL=SQL & " CISHistory = " & replace(request.form("CISNewHistory"), "'",
>"''")
>SQL=SQL & " CISOwner = " & replace(request.form("CISNewOwner"), "'", "''")
>SQL=SQL & " CISDateMonth = " & request.form("CISNewDateMonth")
>SQL=SQL & " CISDateDay = " & request.form("CISNewDateDay")
>SQL=SQL & " CISDateYear = " & request.form("CISNewDateYear")
>SQL=SQL & " CISName = " & replace(request.form("CISNewName"), "'", "''")
>SQL=SQL & " CISGender = " & request.form("CISNewGender")
>SQL=SQL & " CISAge = " & request.form("CISNewAge")
>SQL=SQL & " CISBirthDate = " & replace(request.form("CISNewBirthDate"),
>"'", "''")
>SQL=SQL & " CISOrigin = " & replace(request.form("CISNewOrigin"), "'",
>"''")
>SQL=SQL & " CISRank = " & replace(request.form("CISNewRank"), "'", "''")
>SQL=SQL & " CISLocation = " & replace(request.form("CISNewLocation"), "'",
>"''")
>SQL=SQL & " CISHairColor = " & replace(request.form("CISNewHairColor"),
>"'", "''")
>SQL=SQL & " CISHairStyle = " & replace(request.form("CISNewHairStyle"),
>"'", "''")
>SQL=SQL & " CISEyes = " & replace(request.form("CISNewEyes"), "'", "''")
>SQL=SQL & " CISBuild = " & replace(request.form("CISNewNewBuild"), "'",
>"''")
>SQL=SQL & " CISPhysical = " & replace(request.form("CISPNewhysical"), "'",
>"''")
>SQL=SQL & " CISVoice = " & replace(request.form("CISNewVoice"), "'", "''")
>SQL=SQL & " CISScars = " & replace(request.form("CISNewScars"), "'", "''")
>SQL=SQL & " CISHandedness = " & replace(request.form("CISNewHandedness"),
>"'", "''")
>SQL=SQL & " CISClothing = " & replace(request.form("CISNewClothing"), "'",
>"''")
>SQL=SQL & " CISJewelry = " & replace(request.form("CISNewJewelry"), "'",
>"''")
>SQL=SQL & " CISSpecialPossessions = " &
>replace(request.form("CISNewSpecialPossessions")
>SQL=SQL & " CISFamily = " & replace(request.form("CISNewFamily"), "'",
>"''")
>SQL=SQL & " CISFriends = " & replace(request.form("CISNewFriends"), "'",
>"''")
>SQL=SQL & " CISSexOrientation = " &
>replace(request.form("CISNewSexOrientation"), "'",
>"''")
>SQL=SQL & " CISSexRelations = " &
>replace(request.form("CISNewSexRelations"), "'", "''")
>SQL=SQL & " CISPets = " & replace(request.form("CISNewPets"), "'", "''")
>SQL=SQL & " CISSkills = " & replace(request.form("CISNewSkills"), "'",
>"''")
>SQL=SQL & " CISHobbies = " & replace(request.form("CISNewHobbies"), "'",
>"''")
>SQL=SQL & " CISPersonalInfo = " &
>replace(request.form("CISNewPersonalInfo"), "'", "''")
>SQL=SQL & " CISDragonName = " & replace(request.form("CISNewDragonName"),
>"'", "''")
>SQL=SQL & " CISDragonColor = " & replace(request.form("CISNewDragonColor"),
>"'", "''")
>SQL=SQL & " CISDragonClutchName = " &
>replace(request.form("CISNewDragonClutchName"),
>"'", "''")
>SQL=SQL & " CISDragonClutchDate = " &
>replace(request.form("CISNewDragonClutchDate"),
>"'", "''")
>SQL=SQL & " CISDragonImpressed = " &
>replace(request.form("CISNewDragonImpressed"), "'",
>"''")
>SQL=SQL & " CISDragonAppearance = " &
>replace(request.form("CISNewDragonAppearance"),
>"'", "''")
>SQL=SQL & " CISDragonPersonalInfo = " &
>replace(request.form("CISNewDragonPersonalInfo"),
>"'", "''")
>SQL=SQL & " CISDragonAbilities = " &
>replace(request.form("CISNewDragonAbilities"), "'",
>"''")
>SQL=SQL & " CISDragonWing = " & replace(request.form("CISNewDragonWing"),
>"'", "''")
>SQL=SQL & " CISBlurb = " & replace(request.form("CISNewBlurb"), "'", "''")
>SQL=SQL & " WHERE CISName = " & request.form("CISNewName")
>
>
>
>Response.write SQL
>'my_Conn.execute(SQL)
>
>If err.number <> 0 then
> Response.Write(err.number & " " & err.description)
> err.clear
>End if
>
>%>
><html>
><head>
> <title>Untitled</title>
></head>
>
><body bgcolor="#FFFFFF" text="#990099" link="#009999" vlink="#006666"
>alink="#009999">
><font face="Arial, Helvetica, sans-serif" size="-1"><b>
>Yay! You have successfully updated the persona of <%=
>request.form("CISNewName") %> !!
>
>Return to the <a href="granted.asp">Member's page</a>.
>
></b>
></font>
>
></BODY>
></html>
>
><%
>
>
>my_Conn.close
>set my_Conn = nothing
>
>
>%>
>
>
Message #5 by Andy Johnson <lysaer@d...> on Wed, 25 Oct 2000 16:33:52 -0500
|
|
Ok, update on this: I got rid of all the errors in the code, well,
rather, I don't get any error messages...BUT...the data's not getting
updated in the database.
Current Code: (I've removed all the email code)
<%
strPersonaName = replace(request.Form("CISNewName"), "'", "''")
ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};
DBQ=d:\www\kadanzer\www\database\kazdb2.mdb"
set my_Conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
SQL = "UPDATE tblCIS SET "
SQL=SQL & " CISHistory = '" & replace(request.form("CISNewHistory"),
"'", "''") & "',"
SQL=SQL & " CISOwner = '" & replace(request.form("CISNewOwner"), "'",
"''") & "',"
SQL=SQL & " CISDateMonth = '" & request.form("CISNewDateMonth") & "',"
SQL=SQL & " CISDateDay = '" & request.form("CISNewDateDay") & "',"
SQL=SQL & " CISDateYear = '" & request.form("CISNewDateYear") & "',"
SQL=SQL & " CISName = '" & replace(request.form("CISNewName"), "'",
"''") & "',"
SQL=SQL & " CISGender = '" & request.form("CISNewGender") & "',"
SQL=SQL & " CISAge = '" & request.form("CISNewAge") & "',"
SQL=SQL & " CISBirthDate = '" &
replace(request.form("CISNewBirthDate"), "'", "''") & "',"
SQL=SQL & " CISOrigin = '" & replace(request.form("CISNewOrigin"), "'",
"''") & "',"
SQL=SQL & " CISRank = '" & replace(request.form("CISNewRank"), "'",
"''") & "',"
SQL=SQL & " CISLocation = '" & replace(request.form("CISNewLocation"),
"'", "''") & "',"
SQL=SQL & " CISHairColor = '" &
replace(request.form("CISNewHairColor"), "'", "''") & "',"
SQL=SQL & " CISHairStyle = '" &
replace(request.form("CISNewHairStyle"), "'", "''") & "',"
SQL=SQL & " CISEyes = '" & replace(request.form("CISNewEyes"), "'",
"''") & "',"
SQL=SQL & " CISBuild = '" & replace(request.form("CISNewNewBuild"),
"'", "''") & "',"
SQL=SQL & " CISPhysical = '" & replace(request.form("CISNewPhysical"),
"'", "''") & "',"
SQL=SQL & " CISVoice = '" & replace(request.form("CISNewVoice"), "'",
"''") & "',"
SQL=SQL & " CISScars = '" & replace(request.form("CISNewScars"), "'",
"''") & "',"
SQL=SQL & " CISHandedness = '" &
replace(request.form("CISNewHandedness"), "'", "''") & "',"
SQL=SQL & " CISClothing = '" & replace(request.form("CISNewClothing"),
"'", "''") & "',"
SQL=SQL & " CISJewelry = '" & replace(request.form("CISNewJewelry"),
"'", "''") & "',"
SQL=SQL & " CISSpecialPossessions = '" &
replace(request.form("CISNewSpecialPossessions"), "'", "''") & "',"
SQL=SQL & " CISFamily = '" & replace(request.form("CISNewFamily"), "'",
"''") & "',"
SQL=SQL & " CISFriends = '" & replace(request.form("CISNewFriends"),
"'", "''") & "',"
SQL=SQL & " CISSexOrientation = '" &
replace(request.form("CISNewSexOrientation"), "'", "''") & "',"
SQL=SQL & " CISSexRelations = '" &
replace(request.form("CISNewSexRelations"), "'", "''") & "',"
SQL=SQL & " CISPets = '" & replace(request.form("CISNewPets"), "'",
"''") & "',"
SQL=SQL & " CISSkills = '" & replace(request.form("CISNewSkills"), "'",
"''") & "',"
SQL=SQL & " CISHobbies = '" & replace(request.form("CISNewHobbies"),
"'", "''") & "',"
SQL=SQL & " CISPersonalInfo = '" &
replace(request.form("CISNewPersonalInfo"), "'", "''") & "',"
SQL=SQL & " CISDragonName = '" &
replace(request.form("CISNewDragonName"), "'", "''") & "',"
SQL=SQL & " CISDragonColor = '" &
replace(request.form("CISNewDragonColor"), "'", "''") & "',"
SQL=SQL & " CISDragonClutchName = '" &
replace(request.form("CISNewDragonClutchName"), "'", "''") & "',"
SQL=SQL & " CISDragonClutchDate = '" &
replace(request.form("CISNewDragonClutchDate"), "'", "''") & "',"
SQL=SQL & " CISDragonImpressed = '" &
replace(request.form("CISNewDragonImpressed"), "'", "''") & "',"
SQL=SQL & " CISDragonAppearance = '" &
replace(request.form("CISNewDragonAppearance"), "'", "''") & "',"
SQL=SQL & " CISDragonPersonality = '" &
replace(request.form("CISNewDragonPersonality"), "'", "''") & "',"
SQL=SQL & " CISDragonAbilities = '" &
replace(request.form("CISNewDragonAbilities"), "'", "''") & "',"
SQL=SQL & " CISDragonWing = '" &
replace(request.form("CISNewDragonWing"), "'", "''") & "',"
SQL=SQL & " CISBlurb = '" & replace(request.form("CISNewBlurb"), "'",
"''") & "'"
SQL=SQL & " WHERE CISName = '" & strPersonaName & "'"
Response.write SQL
my_Conn.execute(SQL)
%>
<html>
<head>
<title>Untitled</title>
</head>
<body bgcolor="#FFFFFF" text="#990099" link="#009999" vlink="#006666"
alink="#009999">
<font face="Arial, Helvetica, sans-serif" size="-1"><b>
Yay! You have successfully updated the persona of !!
Return to the <a href="granted.asp">Member's page</a>.
</b>
</font>
</body>
</html>
<%
my_Conn.close
set my_Conn = nothing
%>
Message #6 by "Ken Schaefer" <ken@a...> on Thu, 26 Oct 2000 13:27:21 +1000
|
|
> The include file is just a jmail include file containing specifics for the
email
> that this page sends out...I took it out and still no dice. The only
thing the page
> displays is "cannot process the script" like it always does. Even your
error code
> doesn't output anything.
The code I sent wont output anything because the script isn't running...ie
the code to output the error number and description isn't running either. On
error resume next is supposed to make the script run regardless of any
errors that might occur after the line that has "on error resume next"
Is there anything *before* the line "on error resume next" which might be
causing the script to bomb out?
Cheers
Ken
Message #7 by "Ken Schaefer" <ken@a...> on Thu, 26 Oct 2000 17:38:22 +1000
|
|
Andy,
What does Response.Write(SQL) output?
You have a WHERE clause:
> WHERE CISName = '" & strPersonaName & "'"
Are you sure that there is a record(s) in the database that matches the
WHERE clause?
Cheers
Ken
----- Original Message -----
From: "Andy Johnson" <lysaer@d...>
To: "ASP Databases" <asp_databases@p...>
Sent: Thursday, October 26, 2000 7:33 AM
Subject: [asp_databases] Re: Database update question
> Ok, update on this: I got rid of all the errors in the code, well,
> rather, I don't get any error messages...BUT...the data's not getting
> updated in the database.
>
> Current Code: (I've removed all the email code)
>
> <%
>
> strPersonaName = replace(request.Form("CISNewName"), "'", "''")
>
>
>
>
> ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};
> DBQ=d:\www\kadanzer\www\database\kazdb2.mdb"
> set my_Conn= Server.CreateObject("ADODB.Connection")
> my_Conn.Open ConnString
>
>
> SQL = "UPDATE tblCIS SET "
> SQL=SQL & " CISHistory = '" & replace(request.form("CISNewHistory"),
> "'", "''") & "',"
> SQL=SQL & " CISOwner = '" & replace(request.form("CISNewOwner"), "'",
> "''") & "',"
> SQL=SQL & " CISDateMonth = '" & request.form("CISNewDateMonth") & "',"
> SQL=SQL & " CISDateDay = '" & request.form("CISNewDateDay") & "',"
> SQL=SQL & " CISDateYear = '" & request.form("CISNewDateYear") & "',"
> SQL=SQL & " CISName = '" & replace(request.form("CISNewName"), "'",
> "''") & "',"
> SQL=SQL & " CISGender = '" & request.form("CISNewGender") & "',"
> SQL=SQL & " CISAge = '" & request.form("CISNewAge") & "',"
> SQL=SQL & " CISBirthDate = '" &
> replace(request.form("CISNewBirthDate"), "'", "''") & "',"
> SQL=SQL & " CISOrigin = '" & replace(request.form("CISNewOrigin"), "'",
> "''") & "',"
> SQL=SQL & " CISRank = '" & replace(request.form("CISNewRank"), "'",
> "''") & "',"
> SQL=SQL & " CISLocation = '" & replace(request.form("CISNewLocation"),
> "'", "''") & "',"
> SQL=SQL & " CISHairColor = '" &
> replace(request.form("CISNewHairColor"), "'", "''") & "',"
> SQL=SQL & " CISHairStyle = '" &
> replace(request.form("CISNewHairStyle"), "'", "''") & "',"
> SQL=SQL & " CISEyes = '" & replace(request.form("CISNewEyes"), "'",
> "''") & "',"
> SQL=SQL & " CISBuild = '" & replace(request.form("CISNewNewBuild"),
> "'", "''") & "',"
> SQL=SQL & " CISPhysical = '" & replace(request.form("CISNewPhysical"),
> "'", "''") & "',"
> SQL=SQL & " CISVoice = '" & replace(request.form("CISNewVoice"), "'",
> "''") & "',"
> SQL=SQL & " CISScars = '" & replace(request.form("CISNewScars"), "'",
> "''") & "',"
> SQL=SQL & " CISHandedness = '" &
> replace(request.form("CISNewHandedness"), "'", "''") & "',"
> SQL=SQL & " CISClothing = '" & replace(request.form("CISNewClothing"),
> "'", "''") & "',"
> SQL=SQL & " CISJewelry = '" & replace(request.form("CISNewJewelry"),
> "'", "''") & "',"
> SQL=SQL & " CISSpecialPossessions = '" &
> replace(request.form("CISNewSpecialPossessions"), "'", "''") & "',"
> SQL=SQL & " CISFamily = '" & replace(request.form("CISNewFamily"), "'",
> "''") & "',"
> SQL=SQL & " CISFriends = '" & replace(request.form("CISNewFriends"),
> "'", "''") & "',"
> SQL=SQL & " CISSexOrientation = '" &
> replace(request.form("CISNewSexOrientation"), "'", "''") & "',"
> SQL=SQL & " CISSexRelations = '" &
> replace(request.form("CISNewSexRelations"), "'", "''") & "',"
> SQL=SQL & " CISPets = '" & replace(request.form("CISNewPets"), "'",
> "''") & "',"
> SQL=SQL & " CISSkills = '" & replace(request.form("CISNewSkills"), "'",
> "''") & "',"
> SQL=SQL & " CISHobbies = '" & replace(request.form("CISNewHobbies"),
> "'", "''") & "',"
> SQL=SQL & " CISPersonalInfo = '" &
> replace(request.form("CISNewPersonalInfo"), "'", "''") & "',"
> SQL=SQL & " CISDragonName = '" &
> replace(request.form("CISNewDragonName"), "'", "''") & "',"
> SQL=SQL & " CISDragonColor = '" &
> replace(request.form("CISNewDragonColor"), "'", "''") & "',"
> SQL=SQL & " CISDragonClutchName = '" &
> replace(request.form("CISNewDragonClutchName"), "'", "''") & "',"
> SQL=SQL & " CISDragonClutchDate = '" &
> replace(request.form("CISNewDragonClutchDate"), "'", "''") & "',"
> SQL=SQL & " CISDragonImpressed = '" &
> replace(request.form("CISNewDragonImpressed"), "'", "''") & "',"
> SQL=SQL & " CISDragonAppearance = '" &
> replace(request.form("CISNewDragonAppearance"), "'", "''") & "',"
> SQL=SQL & " CISDragonPersonality = '" &
> replace(request.form("CISNewDragonPersonality"), "'", "''") & "',"
> SQL=SQL & " CISDragonAbilities = '" &
> replace(request.form("CISNewDragonAbilities"), "'", "''") & "',"
> SQL=SQL & " CISDragonWing = '" &
> replace(request.form("CISNewDragonWing"), "'", "''") & "',"
> SQL=SQL & " CISBlurb = '" & replace(request.form("CISNewBlurb"), "'",
> "''") & "'"
> SQL=SQL & " WHERE CISName = '" & strPersonaName & "'"
>
>
>
>
> Response.write SQL
> my_Conn.execute(SQL)
>
>
> %>
> <html>
> <head>
> <title>Untitled</title>
> </head>
>
>
> <body bgcolor="#FFFFFF" text="#990099" link="#009999" vlink="#006666"
> alink="#009999">
> <font face="Arial, Helvetica, sans-serif" size="-1"><b>
> Yay! You have successfully updated the persona of !!
>
> Return to the <a href="granted.asp">Member's page</a>.
>
> </b>
> </font>
>
Message #8 by Andy Johnson <lysaer@d...> on Thu, 26 Oct 2000 07:34:36 -0500
|
|
You're exactly right in the Where clause. I do NOT know why, but we finally got
it working by using a different field in the WHERE clause.
Thanks!
Ken Schaefer wrote:
> Andy,
>
> What does Response.Write(SQL) output?
>
> You have a WHERE clause:
> > WHERE CISName = '" & strPersonaName & "'"
>
> Are you sure that there is a record(s) in the database that matches the
> WHERE clause?
>
> Cheers
> Ken
>
> ----- Original Message -----
> From: "Andy Johnson" <lysaer@d...>
> To: "ASP Databases" <asp_databases@p...>
> Sent: Thursday, October 26, 2000 7:33 AM
> Subject: [asp_databases] Re: Database update question
>
> > Ok, update on this: I got rid of all the errors in the code, well,
> > rather, I don't get any error messages...BUT...the data's not getting
> > updated in the database.
> >
> > Current Code: (I've removed all the email code)
> >
> > <%
> >
> > strPersonaName = replace(request.Form("CISNewName"), "'", "''")
> >
> >
> >
> >
> > ConnString = "DRIVER={Microsoft Access Driver (*.mdb)};
> > DBQ=d:\www\kadanzer\www\database\kazdb2.mdb"
> > set my_Conn= Server.CreateObject("ADODB.Connection")
> > my_Conn.Open ConnString
> >
> >
> > SQL = "UPDATE tblCIS SET "
> > SQL=SQL & " CISHistory = '" & replace(request.form("CISNewHistory"),
> > "'", "''") & "',"
> > SQL=SQL & " CISOwner = '" & replace(request.form("CISNewOwner"), "'",
> > "''") & "',"
> > SQL=SQL & " CISDateMonth = '" & request.form("CISNewDateMonth") & "',"
> > SQL=SQL & " CISDateDay = '" & request.form("CISNewDateDay") & "',"
> > SQL=SQL & " CISDateYear = '" & request.form("CISNewDateYear") & "',"
> > SQL=SQL & " CISName = '" & replace(request.form("CISNewName"), "'",
> > "''") & "',"
> > SQL=SQL & " CISGender = '" & request.form("CISNewGender") & "',"
> > SQL=SQL & " CISAge = '" & request.form("CISNewAge") & "',"
> > SQL=SQL & " CISBirthDate = '" &
> > replace(request.form("CISNewBirthDate"), "'", "''") & "',"
> > SQL=SQL & " CISOrigin = '" & replace(request.form("CISNewOrigin"), "'",
> > "''") & "',"
> > SQL=SQL & " CISRank = '" & replace(request.form("CISNewRank"), "'",
> > "''") & "',"
> > SQL=SQL & " CISLocation = '" & replace(request.form("CISNewLocation"),
> > "'", "''") & "',"
> > SQL=SQL & " CISHairColor = '" &
> > replace(request.form("CISNewHairColor"), "'", "''") & "',"
> > SQL=SQL & " CISHairStyle = '" &
> > replace(request.form("CISNewHairStyle"), "'", "''") & "',"
> > SQL=SQL & " CISEyes = '" & replace(request.form("CISNewEyes"), "'",
> > "''") & "',"
> > SQL=SQL & " CISBuild = '" & replace(request.form("CISNewNewBuild"),
> > "'", "''") & "',"
> > SQL=SQL & " CISPhysical = '" & replace(request.form("CISNewPhysical"),
> > "'", "''") & "',"
> > SQL=SQL & " CISVoice = '" & replace(request.form("CISNewVoice"), "'",
> > "''") & "',"
> > SQL=SQL & " CISScars = '" & replace(request.form("CISNewScars"), "'",
> > "''") & "',"
> > SQL=SQL & " CISHandedness = '" &
> > replace(request.form("CISNewHandedness"), "'", "''") & "',"
> > SQL=SQL & " CISClothing = '" & replace(request.form("CISNewClothing"),
> > "'", "''") & "',"
> > SQL=SQL & " CISJewelry = '" & replace(request.form("CISNewJewelry"),
> > "'", "''") & "',"
> > SQL=SQL & " CISSpecialPossessions = '" &
> > replace(request.form("CISNewSpecialPossessions"), "'", "''") & "',"
> > SQL=SQL & " CISFamily = '" & replace(request.form("CISNewFamily"), "'",
> > "''") & "',"
> > SQL=SQL & " CISFriends = '" & replace(request.form("CISNewFriends"),
> > "'", "''") & "',"
> > SQL=SQL & " CISSexOrientation = '" &
> > replace(request.form("CISNewSexOrientation"), "'", "''") & "',"
> > SQL=SQL & " CISSexRelations = '" &
> > replace(request.form("CISNewSexRelations"), "'", "''") & "',"
> > SQL=SQL & " CISPets = '" & replace(request.form("CISNewPets"), "'",
> > "''") & "',"
> > SQL=SQL & " CISSkills = '" & replace(request.form("CISNewSkills"), "'",
> > "''") & "',"
> > SQL=SQL & " CISHobbies = '" & replace(request.form("CISNewHobbies"),
> > "'", "''") & "',"
> > SQL=SQL & " CISPersonalInfo = '" &
> > replace(request.form("CISNewPersonalInfo"), "'", "''") & "',"
> > SQL=SQL & " CISDragonName = '" &
> > replace(request.form("CISNewDragonName"), "'", "''") & "',"
> > SQL=SQL & " CISDragonColor = '" &
> > replace(request.form("CISNewDragonColor"), "'", "''") & "',"
> > SQL=SQL & " CISDragonClutchName = '" &
> > replace(request.form("CISNewDragonClutchName"), "'", "''") & "',"
> > SQL=SQL & " CISDragonClutchDate = '" &
> > replace(request.form("CISNewDragonClutchDate"), "'", "''") & "',"
> > SQL=SQL & " CISDragonImpressed = '" &
> > replace(request.form("CISNewDragonImpressed"), "'", "''") & "',"
> > SQL=SQL & " CISDragonAppearance = '" &
> > replace(request.form("CISNewDragonAppearance"), "'", "''") & "',"
> > SQL=SQL & " CISDragonPersonality = '" &
> > replace(request.form("CISNewDragonPersonality"), "'", "''") & "',"
> > SQL=SQL & " CISDragonAbilities = '" &
> > replace(request.form("CISNewDragonAbilities"), "'", "''") & "',"
> > SQL=SQL & " CISDragonWing = '" &
> > replace(request.form("CISNewDragonWing"), "'", "''") & "',"
> > SQL=SQL & " CISBlurb = '" & replace(request.form("CISNewBlurb"), "'",
> > "''") & "'"
> > SQL=SQL & " WHERE CISName = '" & strPersonaName & "'"
> >
> >
> >
> >
> > Response.write SQL
> > my_Conn.execute(SQL)
> >
> >
> > %>
> > <html>
> > <head>
> > <title>Untitled</title>
> > </head>
> >
> >
> > <body bgcolor="#FFFFFF" text="#990099" link="#009999" vlink="#006666"
> > alink="#009999">
> > <font face="Arial, Helvetica, sans-serif" size="-1"><b>
> > Yay! You have successfully updated the persona of !!
> >
> > Return to the <a href="granted.asp">Member's page</a>.
> >
> > </b>
> > </font>
> >
>
|
|
|
View Cart
