home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
74.208.221.89
/
74.208.221.89.zip
/
74.208.221.89
/
manage
/
changepackage1.aspx
< prev
next >
Wrap
Text File
|
2015-02-23
|
881b
|
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
Sub page_load()
If (Request.Cookies("gen")("uid") Is Nothing) Then
Response.Redirect("login.aspx")
Else
userid = Request.Cookies("gen")("uid")
username = Request.Cookies("gen")("name")
useremail = Request.Cookies("gen")("email")
End If
mycon.con("Update yk_packages set name = '" & Request.Form("name") & "',amount1 = '" & Request.Form("amount1") & "',amount2 = '" & Request.Form("amount2") & "',value = '" & Request.Form("value") & "',description = '" & Request.Form("description") & "' where id = '" & Request.Form("id") & "'", 1, 3)
Response.Redirect("viewpackages.aspx")
End Sub
</script>