|
| | Esplanade Parmentier
62600 Berck-sur-Mer
Tél : 03.21.09.21.21
Fax : 03.21.09.29.29 |
<% End IF%>
<%
dim adoCn
dim strSQL
set adoCn = Server.CreateObject("ADODB.Connection")
adoCn.Open strConn
dim adoRs
set adoRs = Server.CreateObject("ADODB.Recordset")
Dim FileName, ContentType, PhotoPathName,strFileName, strLoginName, strChoosePassword, strVerifyPassword, strEmail, strFullName, strAddress1, strAddress2, strCity, strState, strCountry, strZipCode,strAboutYourself, AccessLevel, Value
if Request.QueryString("action")="upload" then
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
ByteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
BuildUploadRequest RequestBin
Dim aux, aux1, FILEFLAG
intLoginID = UploadRequest.Item("txtLoginID").Item("Value")
intLoginID=replace(intLoginID, "'", "''")
strEmail=UploadRequest.Item("txtEmail").Item("Value")
strEmail=replace(strEmail, "'", "''")
strLoginName=UploadRequest.Item("txtLoginName").Item("Value")
strLoginName=replace(strLoginName, "'", "''")
strChoosePassword=UploadRequest.Item("txtChoosePassword").Item("Value")
strChoosePassword= replace(strChoosePassword, "'", "''")
strVerifyPassword=UploadRequest.Item("txtVerifyPassword").Item("Value")
strVerifyPassword= replace(strVerifyPassword, "'", "''")
strFileName=UploadRequest.Item("txtFileName").Item("Value")
strFileName=replace(strFullName, "'", "''")
strBinData=UploadRequest.Item("txtBinData").Item("Value")
strBinData=replace(strBinData, "'", "''")
strFullName=UploadRequest.Item("txtFullName").Item("Value")
strFullName=replace(strFullName, "'", "''")
strAddress1 = UploadRequest.Item("txtAddress1").Item("Value")
strAddress1= replace(strAddress1, "'", "''")
strAddress2 = UploadRequest.Item("txtAddress2").Item("Value")
strAddress2 = replace(strAddress2, "'", "''")
strCity = UploadRequest.Item("txtCity").Item("Value")
strCity= replace(strCity, "'", "''")
strState = UploadRequest.Item("txtState").Item("Value")
strState= replace(strState, "'", "''")
strCountry = UploadRequest.Item("txtCountry").Item("Value")
strCountry= replace(strCountry, "'", "''")
strZipCode = UploadRequest.Item("txtZipCode").Item("Value")
strZipCode= replace(strZipCode, "'", "''")
strAboutYourself = UploadRequest.Item("txtAboutYourself").Item("Value")
strAboutYourself = replace(strAboutYourself, "'", "''")
strAccessLevel = UploadRequest.Item("txtAccessLevel").Item("Value")
strAccessLevel = replace(strAccessLevel, "'", "''")
on error resume next
ContentType =UploadRequest.Item("File").Item("ContentType")
FILEFLAG = err.number
on error goto 0
if FILEFLAG = 0 then
ContentType = UploadRequest.Item("File").Item("ContentType")
FilePathName = UploadRequest.Item("File").Item("FileName")
FileName = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
Value = UploadRequest.Item("File").Item("Value")
else
FileName = ""
end if
if filename <>"" then
strSQL = "Update Login set LoginName = '" & strLoginName&_
"', ChoosePassword = '" & strChoosePassword &_
"', VerifyPassword = '" & strVerifyPassword &_
"', Email = '" & strEmail&_
"', FullName = '" & strFullName &_
"', Address1 = '" &strAddress1 &_
"', Address2 = '" &strAddress2 &_
"', City= '" &strCity &_
"', State = '" &strState &_
"', Country = '" &strCountry &_
"', ZipCode = '" &strZipCode &_
"', AboutYourself = '" &strAboutYourself &_
"', AccessLevel='" &strAccessLevel &_
"', FileName = '" &FileName &_
"', MimeType = '" & ContentType &_
"', Bindata = '" & Bindata &_
"' where LoginID = " & intLoginID
adoCn.Execute strSQL
strSQL = "Select * From Login where LoginID=" & intLoginID
adoRs.Open strSQL, adoCn, 1, 3
if not adoRs.eof then
adoRs.Fields("Bindata").appendChunk value & chrB(0)
adoRs.Update
adoRs.close
end if
Else
strSQL = "Update Login set LoginName='" & strLoginName&_
"',ChoosePassword='" & strChoosePassword &_
"',VerifyPassword='" & strVerifyPassword &_
"',Email='" & strEmail &_
"',FullName='" & strFullName &_
"',Address1='" &strAddress1 &_
"',Address2='" &strAddress2 &_
"',City='" &strCity &_
"',State='" &strState &_
"',Country='" &strCountry &_
"',ZipCode='" &strZipCode &_
"',AboutYourself='" &strAboutYourself &_
"',AccessLevel='" &strAccessLevel &_
"' where LoginID=" & intLoginID
adoCn.Execute strSQL
end if
set UploadRequest = nothing
Response.Redirect "loginvoiradmin.asp"
else
%>
<%
intLoginID = Request.QueryString("LoginID")
set adoRs = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From Login where LoginID=" & intLoginID
set adoRs = adoCn.Execute(strSQL)
If not adoRs.EOF then
strFileName = adoRs("FileName")
strBinData = adoRs("BinData")
intLoginID = adoRs("LoginID")
strLoginName = adoRs("LoginName")
strChoosePassword = adoRs("ChoosePassword" )
strVerifyPassword = adoRs("VerifyPassword" )
strEmail = adoRs("Email")
strFullName = adoRs("FullName")
strAddress1 = adoRs("Address1")
strAddress2 = adoRs("Address2")
strCity = adoRs("City")
strState = adoRs("State")
strCountry = adoRs("Country")
strZipCode = adoRs("ZipCode")
strAboutYourself = adoRs("AboutYourself")
strAccessLevel= adoRs("AccessLevel")
End If
adoRs.Close
set adoRs = nothing
End If
%>
<% If IsNull(strFileName) or IsNull(strBinData) Then %>
<% ELSE%>
<%END IF%>
|
|
Retour