Typerne passer ikke sammen!

Hele koden ser sådan her ud:(Prøv den selv!)

<!-- #INCLUDE FILE="logoheaderleftcol.asp" -->     
<!--Main cell-->
<TD>
  <CENTER><img src="i/MakeDonation.gif" width="300" height="50" border="0"><BR><HR></CENTER>
  <BR>
  <%
  Dim strFirstname, strLastname, strUsername, strPassword, objRS
  Dim uidCCNo, intExpMonth, intExpYear, intDonation, strCCType
 
  Sub BeginTable
  Response.Write "<TABLE CELLPADDING='0' CELLSPACING='0'><TR><TD WIDTH='25%'>"
  Response.Write "<img src='i/Spacer.gif' width='115' height='1' border='0'></TD>"
  Response.Write "<TD><img src='i/c-TopLeft.gif' width='30' height='30' border='0'></TD>"
  Response.Write "<TD BGCOLOR='#33CC99'></TD>"
  Response.Write "<TD><img src='i/c-TopRight.gif' width='30' height='30' border='0'></TD>"
  Response.Write "<TD WIDTH='25%'></TD></TR>"
  Response.Write "<TR><TD WIDTH='25%'></TD>"
  Response.Write "<TD BGCOLOR='#33CC99'></TD>"
  Response.Write "<TD BGCOLOR='#33CC99'>"
  End Sub
 
  Sub FinishTable
  Response.Write "</TD><TD BGCOLOR='#33CC99'></TD>"
  Response.Write "<TD WIDTH='25%'></TD></TR>"
  Response.Write "<TR><TD WIDTH='25%'></TD>"
  Response.Write "<TD><img src='i/c-ButtomLeft.gif' width='30' height='30' border='0'></TD>"
  Response.Write "<TD BGCOLOR='#33CC99'></TD>"
  Response.Write "<TD><img src='i/c-ButtomRight.gif' width='30' height='30' border='0'></TD>"
  Response.Write "<TD WIDTH='25%'></TD></TR></TABLE></FORM>"
  End Sub
 
  Sub OpenConnection
      Dim strConnString, objConn
      strConnString = "Provider=SQLOLEDB;" & _
                      "Persist Security Info=FALSE;" & _
                      "User ID=sa;" & _
                      "Password=pb16950;" & _
                      "Initial Catalog=AAOSiteDB;" & _
                      "Initial File Name = C:\Programmer\Microsoft SQL Server\MSSQL\DATA\AAOSiteDB_Data.mdf;"
      objConn.Open strConnString
  End Sub
 
  Sub TerminateConnection
  objConn.Close
  Set objConn = Nothing
  End Sub
 
  Sub TerminateRecordset
      objRS.Close
      Set objRS = Nothing
  End Sub
 
  If Request.Cookies("AAO")("Username") = 0 AND Request.Form("Username") = 0 Then
      BeginTable
        Response.Write "<FORM ACTION='MakeDonation.asp' METHOD='Post'>"
        Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;If you allready have a username"
        Response.Write " and password and want to make a new donation, supply"
        Response.Write " them both here.<BR>&nbsp;&nbsp;&nbsp;&nbsp;"
        Response.Write "If you want to make your first donation to the AAO"
        Response.Write " use the form below this.<BR><BR>"
        Response.Write "Username:<BR>"
        Response.Write "<INPUT TYPE='Text' NAME='Username' VALUE='" & strUsername & "'><BR>"
        Response.Write "Password:<BR>"
        Response.Write "<INPUT TYPE='Password' NAME='Password' VALUE='" & strPassword & "'><BR>"
        Response.Write "<BR><INPUT TYPE='Submit' VALUE='Submit'>"
        Response.Write "</FORM>"
      FinishTable
      Response.Write "<BR><HR><BR>"
  End If
 
  If Request.Cookies("AAO")("Username") <> 0 Then
      strUsername = Request.Cookies("AAO")("Username")
      strPassword = Request.Cookies("AAO")("Password")
      OpenConnection
      Set objRS = Server.Createobject("ADODB.Recordset")
      objRS.Open "dbo.up_parmsel_UserT_CCT ('" & strUsername & "', '" & strPassword & "')", objConn, adOpenForwardOnly, adLockReadOnly, adCmdStoredProc
      If objRS("Firstname_VC") <> 0 Then
        strFirstname = objRS("Firstname_VC")
        strLastname = objRS("Lastname_VC")
        strEmailAddress = objRS("Email_Address_VC")
        uidCCNo = objRS("Creditcard_Number_UI")
        intExpMonth = objRS("Creditcard_Exp_Month_IN")
        intExpYear = objRS("Creditcard_Exp_Year_IN")
        strCCType = objRS("Creditcard_Type_VC")
        intDonation = objRS("Donations_MN")
      End If
      TerminateRecordset
      TerminateConnection
  End If
 
  If Request.Form("Username") <> 0 Then
      strUsername = Request.Form("Username")
      strPassword = Request.Form("Password")
      OpenConnection
      Set objRS = Server.Createobject("ADODB.Recordset")
      objRS.Open "dbo.up_parmsel_UserT_CCT ('" & strUsername & "', '" & strPassword & "')", objConn, adOpenForwardOnly, adLockReadOnly, adCmdStoredProc
      If objRS("Firstname_VC") <> 0 Then
        strFirstname = objRS("Firstname_VC")
        strLastname = objRS("Lastname_VC")
        strEmailAddress = objRS("Email_Address_VC")
        uidCCNo = objRS("Creditcard_Number_UI")
        intExpMonth = objRS("Creditcard_Exp_Month_IN")
        intExpYear = objRS("Creditcard_Exp_Year_IN")
        strCCType = objRS("Creditcard_Type_VC")
        intDonation = objRS("Donations_MN")
      Else
        BeginTable
            Response.Write "<FORM ACTION='MakeDonation.asp' METHOD='Post'>"
            Response.Write "<FONT COLOR='#FF0099'>Username and password is invalid</FONT>"
            Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;If you allready have a username"
            Response.Write " and password and want to make a new donation, supply"
            Response.Write " them both here.<BR>&nbsp;&nbsp;&nbsp;&nbsp;"
            Response.Write "If you want to make your first donation to the AAO"
            Response.Write " use the form below this.<BR><BR>"
            Response.Write "Username:<BR>"
            Response.Write "<INPUT TYPE='Text' NAME='Username' VALUE='" & strUsername & "'><BR>"
            Response.Write "Password:<BR>"
            Response.Write "<INPUT TYPE='Password' NAME='Password' VALUE='" & strPassword & "'><BR>"
            Response.Write "<BR><INPUT TYPE='Submit' VALUE='Submit'>"
            Response.Write "</FORM>"
        FinishTable   
      End If
      TerminateRecordset
      TerminateConnection
  End If
 
  BeginTable
  Response.Write "<FORM ACTION='MakedDonation.asp' METHOD='Post'>"
  Response.Write "Firstname:<BR><INPUT TYPE='Text' NAME='Firstname'><BR>"
  Response.Write "Lastname:<BR><INPUT TYPE='Text' NAME='Lastname'><BR>"
  Response.Write "E-mail Address:<BR><INPUT TYPE='Text' NAME='EmailAddress'><BR>"
  Response.Write "Username:<BR><INPUT TYPE='Text' NAME='Username'><BR>"
  Response.Write "Password:<BR><INPUT TYPE='Password' NAME='Password'><BR>"
  Response.Write "Re-Enter Password:<BR><INPUT TYPE='Password' NAME='ReEnterPassword'><BR>"
  Response.Write "Creditcard Type:<BR><SELECT NAME='CreditcardType' SIZE='1'><OPTION>Visa</OPTION>"
  Response.Write "<OPTION>Mastercard</OPTION><OPTION>American Express</OPTION></SELECT><BR>"
  Response.Write "Expires:(mm/yy)<BR><SELECT NAME='ExpMonth'><OPTION>01</OPTION>"
  Response.Write "<OPTION>02</OPTION><OPTION>03</OPTION><OPTION>04</OPTION>"
  Response.Write "<OPTION>05</OPTION><OPTION>06</OPTION><OPTION>07</OPTION>"
  Response.Write "<OPTION>08</OPTION><OPTION>09</OPTION><OPTION>10</OPTION>"
  Response.Write "<OPTION>11</OPTION><OPTION>12</OPTION></SELECT>"
  Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;"
  Response.Write "<SELECT NAME='ExpYear'><OPTION>02</OPTION><OPTION>03</OPTION>"
  Response.Write "<OPTION>04</OPTION><OPTION>05</OPTION><OPTION>06</OPTION>"
  Response.Write "<OPTION>07</OPTION><OPTION>08</OPTION><OPTION>09</OPTION>"
  Response.Write "<OPTION>10</OPTION></SELECT><BR>"
  Response.Write "Creditcard no.:<BR><INPUT TYPE='Text' NAME='CCID'><BR>"
  Response.Write "Amount you wish to donate:(US$)<BR><INPUT TYPE='Text' NAME='DonationAmount'><BR>"
  Response.Write "<BR><INPUT TYPE='Submit' VALUE='Submit'><BR>"
  FinishTable
 
  %>

<!--Main Cell-->
</TD>
<!-- #INCLUDE FILE="end.asp" -->

Fejlen er at du (ikke bare i linie 48) - men mange steder tester username som om detr er et tal - men det er jo en tekst. Linien skal se således ud:
If Request.Cookies("AAO")("Username") = "" AND Request.Form("Username") = "" then

Samtidig undre det mig at du udføre disse linier lidt længere nede:
>"
        Response.Write "<INPUT TYPE='Text' NAME='Username' VALUE='" & strUsername & "'><BR>"
        Response.Write "Password:<BR>"
        Response.Write "<INPUT TYPE='Password' NAME='Password' VALUE='" & strPassword & "'><BR>"

uden at strUsername og strPassword er sat til noget. ?

Tak Coltau