problhma me sql statements!exw pelagwsei!

Πληροφορίες σχετικές με την ASP, ASP.NET και με τις εφαρμογές που είναι γραμμένες με αυτήν.

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
mihalisp
Δημοσιεύσεις: 123
Εγγραφή: 04 Ιουν 2002 03:00
Επικοινωνία:

problhma me sql statements!exw pelagwsei!

Δημοσίευση από mihalisp » 14 Οκτ 2002 13:57

paidia exw kapoies selides asp kai se 2 apo aytes exw 2 sql statements ena insert into sth mia kai ena update sthn allh.omws kai stis 2 periptwseis moy bgazei ena lathos o explorer poy leei:


Τύπος σφάλματος:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Πρόγραμμα οδήγησης ODBC Microsoft Access] Η λειτουργία πρέπει να χρησιμοποιεί ένα ερώτημα με δυνατότητα ενημέρωσης.

kai ayto


Τύπος σφάλματος:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Πρόγραμμα οδήγησης ODBC Microsoft Access] Συντακτικό σφάλμα στη δήλωση UPDATE.
.

ti na ftaiei re paidia mipws kserei kaneis?o sql kwdikas mazi me ton asp kwdika gia thn kathe selida einai o eksis:


<%

FUNCTION fixQuotes( theString )
fixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION

FUNCTION invalidEmail( email )
IF INSTR( email, "@" ) = 0 OR INSTR( email, "." ) = 0 THEN
invalidEmail = TRUE
ELSE
invalidEmail = FALSE
END IF
END FUNCTION


' Get Registration Fields
epwnymo = TRIM( Request.Form( "epwnymo" ) )
onoma = TRIM( Request.Form( "onoma" ) )
email = TRIM( Request.Form( "email" ) )
odos = TRIM( Request.Form( "odos" ) )
doy = TRIM( Request.Form( "doy" ) )
arithmos = TRIM( Request.Form( "arithmos" ) )
tk = TRIM( Request.Form( "tk" ) )
typos_taytotitas = TRIM ( Request.Form( "typos_taytotitas" ) )
arithmos_taytotitas = TRIM( Request.Form( "arithmos_taytotitas" ) )
tilefwno = TRIM( Request.Form( "tilefwno" ) )
fax = TRIM( Request.Form( "fax" ) )
patrwnymo = TRIM( Request.Form( "patrwnymo" ) )
afm = TRIM( Request.Form( "afm" ) )

' Check For Required Fields

IF epwnymo = "" THEN
errorForm "Πρέπει να δώσετε το επώνυμό σας."
END IF
IF onoma = "" THEN
errorForm "Πρέπει να δώσετε το όνομά σας."
END IF
IF email = "" THEN
errorForm "Πρέπει να δώσετε μια ηλεκτρονική διεύθυνση email."
END IF
IF odos = "" THEN
errorForm "Πρέπει να δώσετε την οδό της διεύθυνσής σας."
END IF
IF doy = "0000" THEN
errorForm "Πρέπει να δώσετε τη ΔΟΥ υποβολής της φορολογικής σας δήλωσης."
END IF
IF arithmos = "" THEN
errorForm "Πρέπει να δώσετε τον αριθμό της διεύθυνσής σας."
END IF
IF tk = "" THEN
errorForm "Πρέπει να δώσετε τον ταχυδρομικό σας κώδικα."
END IF
IF typos_taytotitas = "-1" THEN
errorForm "Πρέπει να δώσετε τον τύπο της ταυτότητάς σας."
END IF
IF arithmos_taytotitas = "" THEN
errorForm "Πρέπει να δώσετε τον αριθμό της ταυτότητάς σας."
END IF
IF tilefwno = "" THEN
errorForm "Πρέπει να δώσετε το τηλέφωνό σας."
END IF
IF patrwnymo = "" THEN
errorForm "Πρέπει να δώσετε το πατρώνυμό σας."
END IF



' Check for Necessary Field Values
IF invalidEmail( email ) THEN
errorForm "Το email που δώσατε δεν είναι έγκυρο."
END IF


Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "dilosiDSN"


' Add New User to Database
sqlString = "INSERT INTO Customers " &_
"( onoma," &_
"epwnymo," &_
"afm," &_
"email," &_
"doy," &_
"patrwnymo," &_
"arithmos_taytotitas," &_
"typos_taytotitas," &_
"odos," &_
"arithmos," &_
"tk," &_
"tilefwno," &_
"fax" &_
") VALUES ( " &_
" '" & fixQuotes( onoma ) & "', " &_
" '" & fixQuotes( epwnymo ) & "', " &_
" '" & fixQuotes( afm ) & "', " &_
" '" & fixQuotes( email ) & "', " &_
" '" & fixQuotes( doy ) & "', " &_
" '" & fixQuotes( patrwnymo ) & "', " &_
" '" & fixQuotes( arithmos_taytotitas ) & "', " &_
" '" & fixQuotes( typos_taytotitas ) & "', " &_
" '" & fixQuotes( odos ) & "', " &_
" " & fixQuotes( arithmos ) & ", " &_
" " & fixQuotes( tk ) & ", " &_
" '" & fixQuotes( tilefwno ) & "', " &_
" '" & fixQuotes( fax ) & "' )"

Con.Execute sqlString

%>


kai h allh gia to update einai h eksis:

<%

Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "dilosiDSN"


FUNCTION fixQuotes( theString )
fixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION


FUNCTION alreadyUser( theUsername )
sqlString = "SELECT username FROM Customers " &_
"WHERE username='" & fixQuotes( theUsername ) & "'"
SET RS = Con.Execute( sqlString )
IF RS.EOF THEN
alreadyUser = FALSE
ELSE
alreadyUser = TRUE
END IF
RS.Close
END FUNCTION

IF alreadyUser( theUsername ) THEN
errorForm "Παρακαλώ διαλέξτε ένα διαφορετικό username.Αυτό που δώσατε χρησιμοποιείται ήδη από άλλο χρήστη."
END IF


' Get Registration Fields
email = TRIM( Request( "email" ) )
tilefwno = TRIM( Request( "tilefwno" ) )
fax = TRIM( Request( "fax" ) )
username = TRIM( Request( "username" ) )
password = TRIM( Request( "password" ) )


' Update user information in the database
sqlString = "UPDATE Customers SET " &_
"email='" & fixQuotes( email ) & "', " &_
"tilefwno='" & fixQuotes( tilefwno ) & "'," &_
"fax='" & fixQuotes( fax ) & "'," &_
"username='" & fixQuotes( username ) & "'," &_
"password='" & fixQuotes( password ) & "'," &_
"WHERE username=" & username

Con.Execute sqlString


' Check For Required Fields

IF tilefwno = "" THEN
errorForm "Πρέπει να δώσετε το τηλέφωνό σας.Αν δεν θέλετε να αλλαξετε το νούμερο του τηλεφώνου σας,τότε δώστε το ήδη υπάρχον νούμερό σας."
END IF
IF email = "" THEN
errorForm "Πρέπει να δώσετε μια νέα ηλεκτρονική διεύθυνση email.Αν δεν θέλετε να αλλαξετε το email σας,τότε δώστε το ήδη υπάρχον."
END IF
IF username = "" THEN
errorForm "Πρέπει να δώσετε ένα καινούριο username.Αν δεν θέλετε να αλλαξετε το username σας,τότε δώστε το ήδη υπάρχον username."
END IF
IF password = "" THEN
errorForm " Πρέπει να δώσετε ένα καινούριο password.Αν δεν θέλετε να αλλαξετε το νούμερο του τηλεφώνου σας,τότε δώστε το ήδη υπάρχον νούμερό σας."
END IF
IF fax = "" THEN
errorForm " Πρέπει να δώσετε ένα καινούριο νούμερο fax.Αν δεν θέλετε να αλλαξετε το νούμερο του fax σας,τότε δώστε το ήδη υπάρχον νούμερό σας."
END IF

Άβαταρ μέλους
telxina
Δημοσιεύσεις: 301
Εγγραφή: 29 Ιούλ 2002 20:36
Τοποθεσία: Moschato, Pireas
Επικοινωνία:

problhma me sql statements!exw pelagwsei!

Δημοσίευση από telxina » 15 Οκτ 2002 01:28

Lipon mixalio...

Kapou mesa ston kodika sou prepei na iparxei to exis statement :

rs.Open sSQL, oConn, adOpenDynamic , adLockOptimistic

i kati tetio telospadon... kinos an otan anigeis to recordset den exis dilosei na to anigei os adOpenDynamic , adLockOptimistic den mporei na kanei update!

Let me know an xreiasteis tipota e? :D

Άβαταρ μέλους
mihalisp
Δημοσιεύσεις: 123
Εγγραφή: 04 Ιουν 2002 03:00
Επικοινωνία:

problhma me sql statements!exw pelagwsei!

Δημοσίευση από mihalisp » 15 Οκτ 2002 12:04

se eyxaristw bre telxina alla den xrhsimopoiw poythena recordsets stis selides moy gia na emfanisw kati.den katalabainw loipon poy kollane ayta an kai tha to psaksw.basika kai se biblia mono ayton ton kwdika poy exw grapsei brika kai tipota pio periploko.kai kala me to update,alla me to insert into ti ginetai?de nomizw oti einai ayto poy moy les an ki esy ksereis kalytera.

tha to koitaksw pantws.thanks.

Άβαταρ μέλους
telxina
Δημοσιεύσεις: 301
Εγγραφή: 29 Ιούλ 2002 20:36
Τοποθεσία: Moschato, Pireas
Επικοινωνία:

problhma me sql statements!exw pelagwsei!

Δημοσίευση από telxina » 15 Οκτ 2002 14:32

Ax vre mihalio!
Lipon edo ine afto pou thes...

Pigene meta to Set pou kaneis sto RS ke grapse :

RS.CursorType=adOpenDynamic
RS.LockType=adLockOptimistic

Ke min peis den iparxei kati tetio! Ego to ida!

SET RS = Con.Execute( sqlString )

Ke mathe epitelous na grafeis sigrotimeno kodika :P .... kinos ola mazi se ena simeio gia na min ta psaxnoume!

KE Ase kato to frontpage! :P

Άβαταρ μέλους
mihalisp
Δημοσιεύσεις: 123
Εγγραφή: 04 Ιουν 2002 03:00
Επικοινωνία:

problhma me sql statements!exw pelagwsei!

Δημοσίευση από mihalisp » 15 Οκτ 2002 15:25

wraia ki etsi nanai me endiaferei pio poly to insert into.ekei ti paizei ?ebgales akri?exei ginei mpaxalo edw.soy ksanagrafw ton kwdika.<%

<%

FUNCTION fixQuotes( theString )
fixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION

FUNCTION invalidEmail( email )
IF INSTR( email, "@" ) = 0 OR INSTR( email, "." ) = 0 THEN
invalidEmail = TRUE
ELSE
invalidEmail = FALSE
END IF
END FUNCTION

SUB errorForm( errorMSG )
%>
<html>
<head>
<script src="myfunctions.js">
</script>
<style>
<!--
a{text-decoration:none}
//-->
<!--a:hover{text-decoration:underline; }-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1253">
<meta http-equiv="Content-Language" content="en-us">
<script src="myfunctions.js">
</script>
<style>
<!--
a{text-decoration:none}
//-->
<!--a:hover{text-decoration:underline; }-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1253">
<meta http-equiv="Content-Language" content="en-us">
</head>
<body style="text-align: Left; text-indent: 1; margin-left: 1; margin-top: 0" bgcolor="#99CCFF" onmousedown="disable()" onkeydown="win32_right_key()">

<table border="1" cellspacing="1" width="100%" bgcolor="#000099" style="color: #FFFFFF; font-size: 8pt; font-family: Tahoma; font-weight: bold; position: relative; top: 0%" bordercolor="#000099" height="14">
<tr>
<table border="1" cellspacing="1" width="100%" bgcolor="#000099" style="color: #FFFFFF; font-size: 8pt; font-family: Tahoma; font-weight: bold; position:relative; top: 0%" bordercolor="#000099">
<tr>
<td width="12%" height="5">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="downframe.asp" style="color: #FFFFFF">Κεντρική Σελίδα</a></td>
<td width="19%" height="5">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="faq.asp" style="color: #FFFFFF" target="myDownFrame">Συχνές Ερωτήσεις / Απαντήσεις</a></td>
<td width="7%" height="5">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="odigies.asp" style="color: #FFFFFF" target="myDownFrame">Οδηγίες</a></td>
<td width="9%" height="5">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="mailto:dilosi@dilosi.gr" style="color: #FFFFFF" target="myDownFrame">Επικοινωνία</a></td>
<td width="7%" height="5">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=#99CCFF>Εγγραφή</font></td>
<td width="32%" height="5">| &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<SCRIPT language=JavaScript>
{
tdate = new Date();
CurYear = tdate.getYear();
CurYear=(CurYear<2000)?1900+CurYear:CurYear;
CurMonth = tdate.getMonth() + 1;
CurDayOw = tdate.getDay();
CurDay= tdate.getDate();

switch (CurDayOw){
case 1 :
CurDayOw = "Δευτέρα"
break;
case 2 :
CurDayOw = "Τρίτη"
break;
case 3 :
CurDayOw = "Τετάρτη"
break;
case 4 :
CurDayOw = "Πέμπτη"
break;
case 5 :
CurDayOw = "Παρασκευή"
break;
case 6 :
CurDayOw = "Σάββατο"
break;
case 0 :
CurDayOw = "Κυριακή"
break;
}


switch (CurMonth){
case 1 :
CurMonth = "Ιανουαρίου"
break;
case 2 :
CurMonth = "Φεβρουαρίου"
break;
case 3 :
CurMonth = "Μαρτίου"
break;
case 4 :
CurMonth = "Απριλίου"
break;
case 5 :
CurMonth = "Μαϊου"
break;
case 6 :
CurMonth = "Ιουνίου"
break;
case 7 :
CurMonth = "Ιουλίου"
break;
case 8 :
CurMonth = "Αυγούστου"
break;
case 9 :
CurMonth = "Σεπτεμβρίου"
break;
case 10 :
CurMonth = "Οκτωβρίου"
break;
case 11 :
CurMonth = "Νοεμβρίου"
break;
case 12 :
CurMonth = "Δεκαμβρίου"
break;
}

document.write(CurDayOw + ", " + CurDay + " " + CurMonth + " " + CurYear);
}</SCRIPT> </td>
</tr>
</table>

<p>&nbsp;</p>
<p>&nbsp;</p>

<center>
<table width="500" border=1
cellpadding=5 cellspacing=0 bordercolor="#006699">
<tr>
<td>
<font face="Arial" size="3" color="darkblue"><b>Υπάρχει
πρόβλημα με τα δεδομένα που έχετε δώσει:</b></font>
<font size="2" color="red"><b>
<br><%=errorMSG%>
</b></font>
<br>
<form method="post" action="eggrafibima2.asp">
<% formFields %>
<p align="center"><input type="submit" value="Επιστροφή" style="color: #FFFFFF; font-family: Tahoma; font-size: 8pt; font-weight: bold; background-color: #000080"></p>
</form>
</td>
</tr>
</table>
</center>

</table>

<table border="1" cellspacing="1" width="100%" bgcolor="#000099" style="color: #FFFFFF; font-size: 8pt; font-family: Tahoma; font-weight: bold; position: relative; top: 0%" bordercolor="#000099" height="14">
<tr>
<table border="1" cellspacing="1" width="100%" bgcolor="#000099" style="color: #FFFFFF; font-size: 8pt; font-family: Tahoma; font-weight: bold; position:relative; top: 0%" bordercolor="#000099">
<tr>
<td width="12%" height="5">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="downframe.asp" style="color: #FFFFFF">Κεντρική Σελίδα</a></td>
<td width="19%" height="5">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="faq.asp" style="color: #FFFFFF" target="myDownFrame">Συχνές Ερωτήσεις / Απαντήσεις</a></td>
<td width="7%" height="5">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="odigies.asp" style="color: #FFFFFF" target="myDownFrame">Οδηγίες</a></td>
<td width="9%" height="5">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="mailto:dilosi@dilosi.gr" style="color: #FFFFFF" target="myDownFrame">Επικοινωνία</a></td>
<td width="7%" height="5">|&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<font color=#99CCFF>Εγγραφή</font></td>
<td width="32%" height="5">| &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;
<SCRIPT language=JavaScript>
{
tdate = new Date();
CurYear = tdate.getYear();
CurYear=(CurYear<2000)?1900+CurYear:CurYear;
CurMonth = tdate.getMonth() + 1;
CurDayOw = tdate.getDay();
CurDay= tdate.getDate();

switch (CurDayOw){
case 1 :
CurDayOw = "Δευτέρα"
break;
case 2 :
CurDayOw = "Τρίτη"
break;
case 3 :
CurDayOw = "Τετάρτη"
break;
case 4 :
CurDayOw = "Πέμπτη"
break;
case 5 :
CurDayOw = "Παρασκευή"
break;
case 6 :
CurDayOw = "Σάββατο"
break;
case 0 :
CurDayOw = "Κυριακή"
break;
}


switch (CurMonth){
case 1 :
CurMonth = "Ιανουαρίου"
break;
case 2 :
CurMonth = "Φεβρουαρίου"
break;
case 3 :
CurMonth = "Μαρτίου"
break;
case 4 :
CurMonth = "Απριλίου"
break;
case 5 :
CurMonth = "Μαϊου"
break;
case 6 :
CurMonth = "Ιουνίου"
break;
case 7 :
CurMonth = "Ιουλίου"
break;
case 8 :
CurMonth = "Αυγούστου"
break;
case 9 :
CurMonth = "Σεπτεμβρίου"
break;
case 10 :
CurMonth = "Οκτωβρίου"
break;
case 11 :
CurMonth = "Νοεμβρίου"
break;
case 12 :
CurMonth = "Δεκαμβρίου"
break;
}

document.write(CurDayOw + ", " + CurDay + " " + CurMonth + " " + CurYear);
}</SCRIPT> </td>
</tr>
</table>
<p>
&nbsp;
</p>

<p>
&nbsp;
</p>

<form method="POST" action="downframe.asp" target="myDownFrame">
<div align="center">
<center>
<table border="1" cellspacing="0" width="406" height="157" cellpadding="0" bordercolor="#000080">
<tr>
<td width="396" height="19" style="color: #FFFFFF; font-family: Tahoma; font-size: 10pt; font-weight: bold" bgcolor="#006699">&nbsp;Συγχαρητήρια
!!!</td>
</tr>
<tr>
<td width="396" height="142" valign="top" style="color: #000080; font-family: Tahoma; font-size: 8pt; font-weight: bold; text-indent: 1; margin-left: 1; margin-right: 1; margin-top: 3; margin-bottom: 3" align="center"><br>
&nbsp;Η Γενική Γραμματεία σας ευχαριστεί
για τον τρόπο που επιλέξατε για να
επικοινωνήσετε μαζί της.Τα στοιχεία
εγγραφής θα εξακριβωθούν&nbsp;&nbsp; και θα
ειδοποιηθείτε στην ηλεκτρονική
διευθυνση που μας δηλώσατε για το
αποτέλεσμα της εγγραφής.&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<p><br>
<input type="submit" value="Κεντρική Σελίδα" name="B1" style="color: #FFFFFF; font-family: Tahoma; font-size: 8pt; font-weight: bold; background-color: #000080">&nbsp;&nbsp;&nbsp;&nbsp;
</td>
</tr>
</table>
</center>
</div>

</form>
<!-- #INCLUDE FILE="sendMail.asp" -->

</body>
<%
Response.End
END SUB


SUB formFields
FOR each item in Request.Form
%>
<input name="<%=item%>" type="hidden"
value="<%=Server.HTMLEncode( Request.Form( item ) )%>">
<%
NEXT
END SUB


' Get Registration Fields
epwnymo = TRIM( Request.Form( "epwnymo" ) )
onoma = TRIM( Request.Form( "onoma" ) )
email = TRIM( Request.Form( "email" ) )
odos = TRIM( Request.Form( "odos" ) )
doy = TRIM( Request.Form( "doy" ) )
arithmos = TRIM( Request.Form( "arithmos" ) )
tk = TRIM( Request.Form( "tk" ) )
typos_taytotitas = TRIM ( Request.Form( "typos_taytotitas" ) )
arithmos_taytotitas = TRIM( Request.Form( "arithmos_taytotitas" ) )
tilefwno = TRIM( Request.Form( "tilefwno" ) )
fax = TRIM( Request.Form( "fax" ) )
patrwnymo = TRIM( Request.Form( "patrwnymo" ) )
afm = TRIM( Request.Form( "afm" ) )

' Check For Required Fields

IF epwnymo = "" THEN
errorForm "Πρέπει να δώσετε το επώνυμό σας."
END IF
IF onoma = "" THEN
errorForm "Πρέπει να δώσετε το όνομά σας."
END IF
IF email = "" THEN
errorForm "Πρέπει να δώσετε μια ηλεκτρονική διεύθυνση email."
END IF
IF odos = "" THEN
errorForm "Πρέπει να δώσετε την οδό της διεύθυνσής σας."
END IF
IF doy = "0000" THEN
errorForm "Πρέπει να δώσετε τη ΔΟΥ υποβολής της φορολογικής σας δήλωσης."
END IF
IF arithmos = "" THEN
errorForm "Πρέπει να δώσετε τον αριθμό της διεύθυνσής σας."
END IF
IF tk = "" THEN
errorForm "Πρέπει να δώσετε τον ταχυδρομικό σας κώδικα."
END IF
IF typos_taytotitas = "-1" THEN
errorForm "Πρέπει να δώσετε τον τύπο της ταυτότητάς σας."
END IF
IF arithmos_taytotitas = "" THEN
errorForm "Πρέπει να δώσετε τον αριθμό της ταυτότητάς σας."
END IF
IF tilefwno = "" THEN
errorForm "Πρέπει να δώσετε το τηλέφωνό σας."
END IF
IF patrwnymo = "" THEN
errorForm "Πρέπει να δώσετε το πατρώνυμό σας."
END IF



' Check for Necessary Field Values
IF invalidEmail( email ) THEN
errorForm "Το email που δώσατε δεν είναι έγκυρο."
END IF


Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "dilosiDSN"


' Add New User to Database
sqlString = "INSERT INTO Customers " &_
"( onoma," &_
"epwnymo," &_
"afm," &_
"email," &_
"username," &_
"password," &_
"doy," &_
"patrwnymo," &_
"typos_taytotitas," &_
"arithmos_taytotitas," &_
"odos," &_
"arithmos," &_
"tk," &_
"tilefwno," &_
"fax" &_
") VALUES ( " &_
" '" & fixQuotes( onoma ) & "', " &_
" '" & fixQuotes( epwnymo ) & "', " &_
" '" & fixQuotes( afm ) & "', " &_
" '" & fixQuotes( email ) & "', " &_
" 'NULL', " &_
" 'NULL', " &_
" '" & fixQuotes( doy ) & "', " &_
" '" & fixQuotes( patrwnymo ) & "', " &_
" '" & fixQuotes( arithmos_taytotitas ) & "', " &_
" '" & fixQuotes( typos_taytotitas ) & "', " &_
" '" & fixQuotes( odos ) & "', " &_
fixQuotes( arithmos ) & ", " &_
fixQuotes( tk ) & ", " &_
" '" & fixQuotes( tilefwno ) & "', " &_
" '" & fixQuotes( fax ) & "' )"

Con.Execute sqlString

'Set RS = Server.CreateObject("ADODB.Recordset")
'RS.ActiveConnection = Con
'RS.Open "SELECT afm FROM Customers WHERE afm =" & afm
'while not RS.EOF
'aaa = RS("afm")
'RS.MoveNext
'WEND

'if afm = "062077346" THEN
'answer=msgbox("ok",65,"example")
'Response.Write(answer)
'End if
Con.Close
%>

opoy sendmail.asp to akoloytho na moy peis an einai swsto:


<%

randomize time
for iTemp = 1 to 10 'το 10 δηλώνει πόσους χαρακτήρες θέλεις
iChar = 96 + (rnd * 25)
username = username & chr(iChar)
next


randomize time
for iTemp = 1 to 10'το 10 δηλώνει πόσους χαρακτήρες θέλεις
iChar = 97 + (rnd * 25)
password = password & chr(iChar)
next


Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "dilosiDSN"

sqlString = "INSERT INTO Customers " &_
"( username," &_
"password" &_
") VALUES ( " &_
" '" & fixQuotes( username ) & "', " &_
" '" & fixQuotes( password ) & "' )"

Con.Execute sqlString



set mail= server.CreateObject("cdonts.newmail")
mail.subject="Νέο Μέλος"
mail.to = "email"
mail.from ="Webmaster@hotmail.com"
mail.body= "Ευχαριστούμε που εγγραφήκατε στην υπηρεσία μας" & vbcrlf & "Τα στοιχεία σας:" & vbcrlf & username & vbcrlf & "password"
mail.send
Set mail = Nothing
%>
.

telos kati allo.pws mporeis na eksasfalisw asfaleia sto site me thn eksis ennoia.an esy pas na grapseis panw sth mpara th dieythinsi mias epomenhs selidas toy site moy na se kanei redirect sthn arxiki.mporei esy naxeis dei to url kapoias aptis epomens selides moy kai na thes na kaneis poystia.katalabes?thanks

Απάντηση

Επιστροφή στο “ASP, ASP.NET”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες