Prøv lige den her
<!--#include file="inc_settings.asp" -->
<%
On Error Resume Next
Set Upload = Server.CreateObject("AspSmartUpload.SmartUpload")
Upload.MaxFileSize = MaxFileSize
Upload.AllowedFilesList = "jpg,jpeg,png"
Upload.Upload
If Err <> 0 Then
If Err = -2147220494 Then intErrorCode = 20
If Err = -2147220399 Then intErrorCode = 21
Err.Clear
End If
If Not Upload.Files("filename").IsMissing And intErrorCode = 0 Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER=mysql; SERVER=" & sql_Server & "; DATABASE=" & sql_DB & "; UID=" & sql_UID & "; PWD=" & sql_PWD
strFilename = Upload.Files("filename").FileName
strPass = DeMessSQL(Trim(Upload.Form("pass")))
strEmail = DeMessSQL(Trim(Upload.Form("email")))
strName = DeMessSQL(Trim(Upload.Form("fullname")))
strCity = DeMessSQL(Trim(Upload.Form("homecity")))
strCountry = DeMessSQL(Trim(Upload.Form("homecountry")))
strText = DeMessSQL(Trim(Upload.Form("teaser")))
strGender = DeMessSQL(Trim(Upload.Form("gender")))
If strGender = "" Or Not IsNumeric(strGender) Then intErrorCode = 3
If strEmail = "" Or Not IsEmail(strEmail) Then intErrorCode = 2
Set Rs = Conn.Execute("SELECT * FROM persons WHERE email='" & strEmail & "'")
If Not Rs.BOF Then intErrorCode = 4
If strPass = "" Then intErrorCode = 1
If intErrorCode = 0 Then
strSQL = "INSERT INTO persons (password,email,name,city,country,text,gender,picturefile,datetime,shown) VALUES ("
strSQL = strSQL & "PASSWORD('" & strPass & "'),"
strSQL = strSQL & "'" & strEmail & "',"
strSQL = strSQL & "'" & strName & "',"
strSQL = strSQL & "'" & strCity & "',"
strSQL = strSQL & "'" & strCountry & "',"
strSQL = strSQL & "'" & strText & "',"
strSQL = strSQL & strGender & ","
strSQL = strSQL & "'" & strFilename & "',"
strSQL = strSQL & "now(),0);"
Conn.Execute strSQL
Set Rs = Conn.Execute("SELECT id FROM persons ORDER BY id DESC")
strPID = Rs(0)
strMail = strEMVO
strMail = Replace(strMail, "#navn", strName)
strMail = Replace(strMail, "#pid", strPID)
Upload.Files("filename").SaveAs Server.MapPath("pictures/" & strPID & "_" & strFilename)
If Err = 0 Then
ResizeIImage Server.MapPath("pictures/" & strPID & "_" & strFilename), 615
Conn.Execute "INSERT INTO hits (pid) VALUES (" & strPID & ");"
SendMail strEmail, "Registrering på Hot Or Not", strMail
Else
Conn.Execute "DELETE FROM persons WHERE id=" & strPID
intErrorCode = 30
End If
End If
ElseIf intErrorCode = 0 Then
intErrorCode = 40
End If
%>
<html>
<head>
<title>tdaugaard.dk's Hot Or Not System</title>
<meta http-equiv="pragma" content="nocache">
<link rel="stylesheet" type="text/css" href="hotornot.css">
</head>
<body>
<center>
<table border="0" cellpadding="4" cellspacing="0" width="613">
<tr><td>
<!--#include file="inc_menu.asp" -->
<% If intErrorCode > 0 Then %>
Der opstod en fejl under tilmelding af din profil.<br>
Fejlen er:
<p>
<font color="#ff0000"><b>
<%
Select Case intErrorCode
Case 1: Response.Write "Du mangler at skrive et password!"
Case 2: Response.Write "Du mangler at skrive din email adresse, eller den indtastede email adresse er ikke gyldig!"
Case 3: Response.Write "Du mangler at vælge om du er Mand eller Kvinde!"
Case 4: Response.Write "Den indtastede email adresse er allerede brugt af en anden bruger!"
Case 20: Response.Write "Forkert filtype! Der kan kun uploades JPG (*.jpg; *.jpeg) og PNG (*.png) filer!"
Case 21: Response.Write "Billedet fylder for meget! Max størrelse er: ˜" & (MaxFileSize \ 1024) & " KB"
Case 30: Response.Write "Der opstod en fejl under upload af dit billede og din profil er derfor ikke blevet oprettet. Dette skyldes højst sandsynligt en systemfejl!"
Case 40: Response.Write "Du valgte ikke noget billede!"
End Select
%>
</font></b>
<p>
Klik på din browsers tilbage knap, ret fejlen og prøv igen :-)<br>
Mener du at Hot Or Not er skyld i denne fejl, så kan du skrive til os på <a href="mailto:mats1122@yahoo.dk">mats1122@yahoo.dk</a>
<% Else %>
<b>Du er nu oprettet på Hot or Not :-)</b>
<p>
Det direkte link til din profil er: <a href="<%=BaseAddress%>default.asp?pid=<%=strPID%>"><%=BaseAddress%>default.asp?pid=<%=strPID%></a>
<p>
Du vil i løbet af få minutter modtage en velkomst email :-)
<% End If %>
<hr>
<center>Copyright (C) Thomas Daugaard 2001</center>
</td></tr>
</table>
</center>
</body><!doctype html public "-//ietf//dtd html//en//3.0">
<html>
<head><title> put_your_title_here </title></head>
<body>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
