Results 1 to 3 of 3

Thread: Not Writing To Database

  1. 09-17-2001, 11:01 AM #1
    Carl Draves Guest

    Not Writing To Database

    This code was working just fine. There have been no changes to the code or the database and it has stopped working. Can anyone see any reason when it stopped?

    Thanks Carl

    <%CLICK = UCASE(request(&#34;ASPdbClick_101&#34) &#39; ADD,EDIT,UPDATE,or DELETE
    %>

    <%
    Set AER1DB = Server.CreateObject(&#34;ASP.db&#34
    AER1DB.dbUnit = 101
    ButtonCheck = Request(&#34;aspDBEditBut_101&#34
    AER1DB.dbDSN = &#34;DSN=XXXX; UID=XXX; PWD=&#34;
    AER1DB.dbSQL = &#34;SELECT First_Name,Last_Name,Company,email,DateCreated FROM ee_email&#34;
    AER1DB.dbMode = &#34;None&#34;
    AER1DB.dbNavigation = &#34;None&#34;
    AER1DB.dbNavigationIcon = &#34;None&#34;
    AER1DB.dbButtonsOnOff=&#34;EditCancelOff,FilterDro pOff,EditDropOff&#34;
    AER1DB.dbStartUp = &#34;EditAdd&#34;
    AER1DB.dbEditHeader=false
    AER1DB.dbImageDir = &#34;../allied/images/&#34;
    AER1DB.dbNavigationItem = &#34;Add&#34;
    AER1DB.dbColor = &#34;CCCCCC,FFFFFF,04433A,Black,999999,,,,Black&#3 4;
    AER1DB.dbEditParams = _
    &#34;TableName=ee_email,BookMarkFlds=0,TableTag=Bo rder=1&#34;
    AER1DB.dbEditFlds = &#34;1,2,3,4,DateCreated[timestamp(mm/dd/yyyy)]&#34;
    AER1DB.dbEditAddROFlds = &#34;DateCreated&#34;
    AER1DB.dbButtonAnchor=false


    If ButtonCheck =&#34;Add New Record&#34; then &#39; This does an UNSTICKY ADD
    AER1DB.ASPdb &#39; let the record get written
    AER1DB.dbReset(101)
    Response.clear


    Set Mail = Server.CreateObject(&#34;Persits.MailSender&#34
    Mail.Host = &#34;xxxx.xxxx&#34; &#39; Specify a valid SMTP server
    Mail.From = &#34;support@allied-peo.com&#34; &#39; Specify sender&#39;s address
    Mail.FromName = &#34;Allied Support&#34; &#39; Specify sender&#39;s name


    Mail.AddAddress &#34;ccc@ccc.com&#34;, &#34;Operations&#34;
    Mail.AddReplyTo &#34;ccc@ccc.com&#34;

    Mail.Subject = &#34;A New Email Has Been Added To The Database.&#34;

    Mail.Body = &#34;&#34; & Chr(13) & Chr(10) & _
    &#34;Please check the database through CRM. Support&#34;
    On Error Resume Next
    Mail.Send
    If Err <> 0 Then
    Response.Write &#34;Error encountered: &#34; & Err.Description
    End If


    %>
    <body bgcolor=&#34;#FFFFFF&#34; text=&#34;#000000&#34; background=&#34;/dnet3/allied/images/Wb02212_.gif&#34;>
    <p align=&#34;center&#34;><b><font size=&#34;4&#34;>Your Email Has Been Added!<br>
    <br>
    If we have any questions, we will be contacting you. <br>
    <br>
    </font></b></p>
    <P align=&#34;center&#34;> <A HREF=&#34;someware.asp&#34;> <font size=&#34;5&#34;>Continue</font>
    </A>
    <%
    &#39;Response.redirect(&#34;somewhere.asp?CONFIRM= YES&#34
    Else
    AER1DB.ASPdb
    %>
    <%
    End If
    %>
    Reply With Quote Reply With Quote
  2. 09-17-2001, 04:47 PM #2
    Frank Kwong Guest

    Not Writing To Database (reply)

    1. Disi you install any new patch DLLs? If so , go back to the old version.
    2. Changed hardware ? go back to the old one.
    3. Are you sure it is the same DB ?
    4. Try it on a different CPU.
    5. Ttake it apart and test one module at a time and pin point the problem.


    ------------
    Carl Draves at 9/17/01 12:01:00 PM

    This code was working just fine. There have been no changes to the code or the database and it has stopped working. Can anyone see any reason when it stopped?

    Thanks Carl

    <%CLICK = UCASE(request(&#34;ASPdbClick_101&#34) &#39; ADD,EDIT,UPDATE,or DELETE
    %>

    <%
    Set AER1DB = Server.CreateObject(&#34;ASP.db&#34
    AER1DB.dbUnit = 101
    ButtonCheck = Request(&#34;aspDBEditBut_101&#34
    AER1DB.dbDSN = &#34;DSN=XXXX; UID=XXX; PWD=&#34;
    AER1DB.dbSQL = &#34;SELECT First_Name,Last_Name,Company,email,DateCreated FROM ee_email&#34;
    AER1DB.dbMode = &#34;None&#34;
    AER1DB.dbNavigation = &#34;None&#34;
    AER1DB.dbNavigationIcon = &#34;None&#34;
    AER1DB.dbButtonsOnOff=&#34;EditCancelOff,FilterDro pOff,EditDropOff&#34;
    AER1DB.dbStartUp = &#34;EditAdd&#34;
    AER1DB.dbEditHeader=false
    AER1DB.dbImageDir = &#34;../allied/images/&#34;
    AER1DB.dbNavigationItem = &#34;Add&#34;
    AER1DB.dbColor = &#34;CCCCCC,FFFFFF,04433A,Black,999999,,,,Black&#3 4;
    AER1DB.dbEditParams = _
    &#34;TableName=ee_email,BookMarkFlds=0,TableTag=Bo rder=1&#34;
    AER1DB.dbEditFlds = &#34;1,2,3,4,DateCreated[timestamp(mm/dd/yyyy)]&#34;
    AER1DB.dbEditAddROFlds = &#34;DateCreated&#34;
    AER1DB.dbButtonAnchor=false


    If ButtonCheck =&#34;Add New Record&#34; then &#39; This does an UNSTICKY ADD
    AER1DB.ASPdb &#39; let the record get written
    AER1DB.dbReset(101)
    Response.clear


    Set Mail = Server.CreateObject(&#34;Persits.MailSender&#34
    Mail.Host = &#34;xxxx.xxxx&#34; &#39; Specify a valid SMTP server
    Mail.From = &#34;support@allied-peo.com&#34; &#39; Specify sender&#39;s address
    Mail.FromName = &#34;Allied Support&#34; &#39; Specify sender&#39;s name


    Mail.AddAddress &#34;ccc@ccc.com&#34;, &#34;Operations&#34;
    Mail.AddReplyTo &#34;ccc@ccc.com&#34;

    Mail.Subject = &#34;A New Email Has Been Added To The Database.&#34;

    Mail.Body = &#34;&#34; & Chr(13) & Chr(10) & _
    &#34;Please check the database through CRM. Support&#34;
    On Error Resume Next
    Mail.Send
    If Err <> 0 Then
    Response.Write &#34;Error encountered: &#34; & Err.Description
    End If


    %>
    <body bgcolor=&#34;#FFFFFF&#34; text=&#34;#000000&#34; background=&#34;/dnet3/allied/images/Wb02212_.gif&#34;>
    <p align=&#34;center&#34;><b><font size=&#34;4&#34;>Your Email Has Been Added!<br>
    <br>
    If we have any questions, we will be contacting you. <br>
    <br>
    </font></b></p>
    <P align=&#34;center&#34;> <A HREF=&#34;someware.asp&#34;> <font size=&#34;5&#34;>Continue</font>
    </A>
    <%
    &#39;Response.redirect(&#34;somewhere.asp?CONFIRM= YES&#34
    Else
    AER1DB.ASPdb
    %>
    <%
    End If
    %>
    Reply With Quote Reply With Quote
  3. 09-17-2001, 04:59 PM #3
    Carl Guest

    Not Writing To Database (reply)

    Frank,

    I will do that but there has been no changes to our SQL Databases, upgrades, hardware. Nothing at all. That is why it is so strange.

    Carl


    ------------
    Frank Kwong at 9/17/01 5:47:12 PM

    1. Disi you install any new patch DLLs? If so , go back to the old version.
    2. Changed hardware ? go back to the old one.
    3. Are you sure it is the same DB ?
    4. Try it on a different CPU.
    5. Ttake it apart and test one module at a time and pin point the problem.


    ------------
    Carl Draves at 9/17/01 12:01:00 PM

    This code was working just fine. There have been no changes to the code or the database and it has stopped working. Can anyone see any reason when it stopped?

    Thanks Carl

    <%CLICK = UCASE(request(&#34;ASPdbClick_101&#34) &#39; ADD,EDIT,UPDATE,or DELETE
    %>

    <%
    Set AER1DB = Server.CreateObject(&#34;ASP.db&#34
    AER1DB.dbUnit = 101
    ButtonCheck = Request(&#34;aspDBEditBut_101&#34
    AER1DB.dbDSN = &#34;DSN=XXXX; UID=XXX; PWD=&#34;
    AER1DB.dbSQL = &#34;SELECT First_Name,Last_Name,Company,email,DateCreated FROM ee_email&#34;
    AER1DB.dbMode = &#34;None&#34;
    AER1DB.dbNavigation = &#34;None&#34;
    AER1DB.dbNavigationIcon = &#34;None&#34;
    AER1DB.dbButtonsOnOff=&#34;EditCancelOff,FilterDro pOff,EditDropOff&#34;
    AER1DB.dbStartUp = &#34;EditAdd&#34;
    AER1DB.dbEditHeader=false
    AER1DB.dbImageDir = &#34;../allied/images/&#34;
    AER1DB.dbNavigationItem = &#34;Add&#34;
    AER1DB.dbColor = &#34;CCCCCC,FFFFFF,04433A,Black,999999,,,,Black&#3 4;
    AER1DB.dbEditParams = _
    &#34;TableName=ee_email,BookMarkFlds=0,TableTag=Bo rder=1&#34;
    AER1DB.dbEditFlds = &#34;1,2,3,4,DateCreated[timestamp(mm/dd/yyyy)]&#34;
    AER1DB.dbEditAddROFlds = &#34;DateCreated&#34;
    AER1DB.dbButtonAnchor=false


    If ButtonCheck =&#34;Add New Record&#34; then &#39; This does an UNSTICKY ADD
    AER1DB.ASPdb &#39; let the record get written
    AER1DB.dbReset(101)
    Response.clear


    Set Mail = Server.CreateObject(&#34;Persits.MailSender&#34
    Mail.Host = &#34;xxxx.xxxx&#34; &#39; Specify a valid SMTP server
    Mail.From = &#34;support@allied-peo.com&#34; &#39; Specify sender&#39;s address
    Mail.FromName = &#34;Allied Support&#34; &#39; Specify sender&#39;s name


    Mail.AddAddress &#34;ccc@ccc.com&#34;, &#34;Operations&#34;
    Mail.AddReplyTo &#34;ccc@ccc.com&#34;

    Mail.Subject = &#34;A New Email Has Been Added To The Database.&#34;

    Mail.Body = &#34;&#34; & Chr(13) & Chr(10) & _
    &#34;Please check the database through CRM. Support&#34;
    On Error Resume Next
    Mail.Send
    If Err <> 0 Then
    Response.Write &#34;Error encountered: &#34; & Err.Description
    End If


    %>
    <body bgcolor=&#34;#FFFFFF&#34; text=&#34;#000000&#34; background=&#34;/dnet3/allied/images/Wb02212_.gif&#34;>
    <p align=&#34;center&#34;><b><font size=&#34;4&#34;>Your Email Has Been Added!<br>
    <br>
    If we have any questions, we will be contacting you. <br>
    <br>
    </font></b></p>
    <P align=&#34;center&#34;> <A HREF=&#34;someware.asp&#34;> <font size=&#34;5&#34;>Continue</font>
    </A>
    <%
    &#39;Response.redirect(&#34;somewhere.asp?CONFIRM= YES&#34
    Else
    AER1DB.ASPdb
    %>
    <%
    End If
    %>
    Reply With Quote Reply With Quote
« Previous Thread | Next Thread »

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Forum Rules