hello, i have a project am working on.i have designed a form and a database has been designed , i need people to login and enter their pin number into the textbox and it will trnasfer the amount tied to that pin number to another table that has the registered members profile and his money is increased , by adding the new card amount to the existing amount.
Simply put i want to be able to use ASP to transfer numbers from a table to another table.
this is the code i used below.
<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="sign_in.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuth orization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim rst
Dim rst_numRows
Dim updateaction
Dim bet
Set rst = Server.CreateObject("ADODB.Recordset")
rst.ActiveConnection = MM_cnn_STRING
rst.Source = "SELECT * FROM personal,card"
rst.CursorType = 0
rst.CursorLocation = 2
rst.LockType = 2
rst.Open()
rst_numRows = 0
%>
<%
bet = request.Form("textfield")
response.Write(bet)
'response.End()
updataction = "UPDATE card SET card.amount = card.amount + '20' WHERE (card_id = '1') SET card.status = 'no'"
'updataction = "UPDATE personal SET personal.amount = personal.amount + card.amount WHERE pin = ' " & request.form("textfield") & " ' "
' strSQL = "SELECT FirstName, LastName, SSN, Salary" "FROM Employee " "WHERE LastName LIKE '%" & Request("LastName") & "%'"
'rst("personal.amount") = rst("personal.amount") + request.Form("textfield")
'rst("personal.amount") = rst("personal.amount") + bet
'rst.update
Response.Write("updateaction")
'response.End()
%>
<html>
<head>
<title>default</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="css/sheet.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {
color: #990000;
font-weight: bold;
}
.style2 {color: #990000}
-->
</style>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="758" height="520" border="0" align="center" cellpadding="0" cellspacing="0" id="Table_01">
<tr>
<td height="146" colspan="3"></td>
</tr>
<tr>
<td rowspan="4" valign="top" bgcolor="#BFAE80"><table width="169" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="32" bgcolor="#BFAE80"><strong>MY ACCOUNT</strong></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="287" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="leftlinks">
<tr>
<td width="92%"><div align="center"></div></td>
</tr>
<tr>
<td height="19" class="leftboxlink"><a href="myaccount.asp">My Transaction </a> <img src="images/arrow.gif" width="10" height="10"></td>
</tr>
<tr>
<td height="77" valign="top" class="sublinks"><br>
Add amount <img src="images/block.gif" width="10" height="10"><br>
Transaction history <img src="images/block.gif" width="10" height="10">
</td>
</tr>
<tr>
<td class="leftboxlink"><a href="#">What is Online Billing</a> <img src="images/arrow.gif" width="10" height="10"></td>
</tr>
<tr>
<td class="leftboxlink"><a href="#">My Latest Online Bill</a> <img src="images/arrow.gif" width="10" height="10"></td>
</tr>
<tr>
<td class="leftboxlink"><a href="#">See an Online Bill</a> <img src="images/arrow.gif" width="10" height="10"></td>
</tr>
<tr>
<td class="leftboxlink">Direct Debit <img src="images/arrow.gif" width="10" height="10"></td>
</tr>
<tr>
<td class="leftboxlink">How & Where To Pay <img src="images/arrow.gif" width="10" height="10"></td>
</tr>
<tr>
<td class="leftboxlink">Any Questions? <img src="images/arrow.gif" width="10" height="10"></td>
</tr>
</table></td>
</tr>
</table></td>
<td rowspan="4" valign="top"><table width="404" height="333" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="333"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="374" valign="top"><table width="391" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td width="377"><table width="396" border="0" cellpadding="0" cellspacing="0" class="tableborder">
<tr>
<td width="386">Welcome,<span class="style2"><strong><%=(rst.Fields.Item("name") .Value)%></strong></span>, You registered on <span class="style1">
<%=(rst.Fields.Item("registertime").Value)%></span></td>
</tr>
</table></td>
</tr>
</table>
<br>
<table width="364" border="0" align="center" cellpadding="2" cellspacing="2" class="tableborder">
<tr>
<td height="309" valign="top"><table width="354" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="107" rowspan="2"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="123"> </td>
</tr>
</table></td>
<td width="247" height="23"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="boxheading">
<tr>
<td height="23">ACCOUNT SUMMARY </td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><table width="100%" height="74" border="1" cellpadding="0" cellspacing="0" bordercolor="#BFAE80">
<tr>
<td width="37%">Account</td>
<td width="63%"><%=(rst.Fields.Item("amountdue").Value )%></td>
</tr>
<tr>
<td>Date</td>
<td> </td>
</tr>
<tr>
<td>Amount Due </td>
<td> Naira </td>
</tr>
<tr>
<td>Date Due </td>
<td><%=(rst.Fields.Item("duedate").Value)%></td>
</tr>
</table></td>
</tr>
</table><br>
<table width="96%" border="0" cellpadding="0" cellspacing="0" class="boxheading">
<tr>
<td>Add amount </td>
</tr>
</table>
<p> </p>
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="115"><form name="form1" action="<%=Updateaction%>" method="post">
<table width="96%" border="1" align="center" cellpadding="1" cellspacing="2" bordercolor="#BFAE80">
<tr>
<td width="37%">Amount in Card </td>
<td width="52%"><label>
<label> Naira </label></td>
<td width="11%"> </td>
</tr>
<tr>
<td>Amount in account</td>
<td><label></label></td>
<td> </td>
</tr>
<tr>
<td>Enter PIN here </td>
<td><input name="textfield" type="text" class="textboxred"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><input name="Submit" type="submit" class="button" value="Submit"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<p> </p></td>
</tr>
</table></td>
</tr>
</table>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p> </td>
</tr>
</table></td>
<td height="53" bgcolor="#BFAE80"> </td>
</tr>
<tr>
<td height="32">
<img src="images/default_05.gif" width="186" height="32" alt=""></td>
</tr>
<tr>
<td height="67" bgcolor="#BFAE80"> </td>
</tr>
<tr>
<td height="205" valign="top" bgcolor="#003366"> </td>
</tr>
<tr>
<td colspan="3">
<img src="images/default_08.gif" width="758" height="17" alt=""></td>
</tr>
</table>
</body>
</html>
<%
rst.Close()
Set rst = Nothing
%>
ASP credit card
