74.208.221.89/74.208.221.89.zip/74.208.221.89/create-account1.aspx

Text File | 2015-03-15 | 811b | 18 lines

<%@ Page Language="VB" Debug="true" %>
<script runat="server">
    Dim mycon As New conValue()
    Dim username, useremail, permissions As String
    Dim userid As Integer
    Dim str1 As String
    Dim str2() As String
    Dim str4() As String
    Dim image(), image1, price(), mrp() As String
    Sub page_load()
        Dim userid As Integer
        mycon.con("Select IsNull(max(userid),0) from lk_profiles", 1, 2)
        userid = mycon.Temp1 + 1
        mycon.con("Insert into lk_profiles (clname,email,mobile,password,userid,date) values ('" & Request.Form("name") & "','" & Request.Form("email") & "','" & Request.Form("mobile") & "','" & Request.Form("password") & "','" & userid & "',getdate())", 1, 3)
        Response.Redirect("index.aspx?msg=User Created")
    End Sub
</script>