<% Function GetFormattedDate strDate = CDate(Date) strDay = DatePart("d", strDate) strMonth = DatePart("m", strDate) strYear = DatePart("yyyy", strDate) If strDay < 10 Then strDay = "0" & strDay End If If strMonth < 10 Then strMonth = "0" & strMonth End If GetFormattedDate = strYear & "-" & strMonth & "-" & strDay End Function dim oConn, memid hasemail="hidden" 'Connect to database Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open connectstring if request.form("submit") > "" then dim sql, frmemail, mydate frmemail = request.form("email") sql = "select * from members where MemberEmail='" & frmemail & "' order by SubscriptionDate desc" response.write(sql) set rs1 = oConn.execute(sql) if rs1.eof then hasemail="visible" else hasemail="hidden" memid=rs1.fields("MemberID") sql="Update members set RenewalDate ='" & GetFormattedDate & "' where MemberID=" & memid oconn.execute(sql) response.redirect("renewpayment.asp?mid=" & memid) end if rs1.close end if %> Membership

 

 

 

 


Renew Your Membership

Please enter the email address you registered with:
*Email address not found*