home *** CD-ROM | disk | FTP | other *** search
/ 74.208.221.89 / 74.208.221.89.zip / 74.208.221.89 / manage / addpackage1.aspx < prev    next >
Text File  |  2015-02-28  |  903b  |  18 lines
  1. ∩╗┐<%@ Page Language="VB" Debug="true" %>
  2. <script runat="server">
  3.     Dim mycon As New conValue()
  4.     Dim username, useremail, permissions As String
  5.     Dim userid As Integer
  6.     Sub page_load()
  7.         If (Request.Cookies("gen")("uid") Is Nothing) Then
  8.             Response.Redirect("login.aspx")
  9.         Else
  10.             userid = Request.Cookies("gen")("uid")
  11.             username = Request.Cookies("gen")("name")
  12.             useremail = Request.Cookies("gen")("email")
  13.         End If
  14.         mycon.con("Insert into yk_packages (name,amount1,amount2,value,value1,description) values ('" & Request.Form("name") & "','" & Request.Form("amount1") & "','" & Request.Form("amount2") & "','" & Request.Form("value") & "','" & Request.Form("value1") & "','" & Replace(Request.Form("description"), "'", "''") & "')", 1, 3)
  15.         Response.Redirect("viewpackages.aspx")
  16.     End Sub
  17. </script>
  18.