[ Príspevok: 1 ] 
AutorSpráva
Offline

Užívateľ
Užívateľ
Obrázok užívateľa

Registrovaný: 15.03.07
Prihlásený: 30.01.13
Príspevky: 5
Témy: 2 | 2

Mam stranku v .asp. Sama neprogramujem, ale niekto (na koho sa už nemôžem obrátiť o pomoc) mi raz urobil vzorovú asp stránku s naprogramovaním registračného formulára na prihlasovanie a odhlasovanie noviniek. Po rokoch niečo prestalo fungovať a ja to neviem analyzovať. Je to urgentné.
V browseri to zobrazuje chybyWeb je na http://www.misenska.cz
Vyplnenie formulára mi údaje do databáze zapíše, ale nevracia mi hlášku, že adresa bola pridaná s príslušnou nadefinovanou stránkou. Po vyplnení mena a emailu sa zobrazuje nejaka HTTP 500 vnútorna chyba serveru... alebo jmail.Message error '8000ffff' Error: 550 The following recipients could not be sent to:ab@ab.cz; 550 not local host ab.cz, not a gateway
/index.asp, line 36 (pricom ab.cz je vymyslena emailova adresa, ktoru registrujem...
Ak vyplním tú e-mailovú adresu v nesprávnom tvare - potiaľ to funguje - vypíše totiž, že adresa je zapísaná nesprávne, ale ďalej nefunguje. Nevráti príslušnú stránku s hláškou "Vaše emailová adresa byla úspěšně zařazena do seznamu."
Ospravedlňujem sa, že neviem presne, ktorý riadok je v tomto prípade dôležitý!


Pred samotným HTML HEAD:
<%
Function IsEmail(ByVal Text)
Dim I

IsEmail = False
Text = LCase(Text)
For I = 1 To Len(Text)
If InStr("abcdefghijklmnopqrstuvwxyz0123456789@.-_", Mid(Text, I, 1)) = 0 Then Exit Function
Next
If Len(Text) < 6 Then Exit Function
If InStr(Text, "@") <> InStrRev(Text, "@") Then Exit Function
If InStr(Text, "@") < 2 Or InStr(Text, "@") > Len(Text) - 4 Then Exit Function
If InStrRev(Text, ".") < InStr(Text, "@") Then Exit Function
If Len(Text) - InStrRev(Text, ".") < 2 Or Len(Text) - InStrRev(Text, ".") > 3 Then Exit Function
IsEmail = True
End Function

if (Request.Form("type") = "subscribe") Then
if IsEmail(Request.Form("emailsub")) then
Set conn_data = CreateObject("ADODB.Connection")
conn_data.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\wwwdata\wdfe0534\db\db.mdb"
conn_data.execute("DELETE FROM Newsletter WHERE Email = '"&Request.Form("emailsub")&"'")
conn_data.execute("INSERT INTO Newsletter (Email,Name) VALUES ('" &Request.Form("emailsub")& "', '" &Request.Form("name")& "')")
conn_data.Close
Set conn_data = nothing

Subscribe = "Vaše emailová adresa byla úspěšně zařazena do seznamu."
Set jmail = Server.CreateObject("JMail.Message")
jmail.Charset = "Windows-1250"
jmail.AddRecipient "sklep@sklep.cz", "vinný sklep"
jmail.AddRecipient Request.Form("emailsub"), Request.Form("name")
jmail.From = "sklep@sklep.cz"
jmail.FromName = "vinný sklep"
jmail.Subject = "Přihlášení informačního servisu"
jmail.Body = "Přihlášení k zasílání informací na adresu: " & Request.Form("emailsub")
jmail.Send "mail.misenska.cz"
else
Subscribe = "Špatný formát zadané email adresy."
end if
end if

if (Request.Form("type") = "unsubscribe") Then
if IsEmail(Request.Form("emailunsub")) then
Set conn_data = CreateObject("ADODB.Connection")
conn_data.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\wwwdata\wdfe0534\db\db.mdb"
conn_data.execute("UPDATE Newsletter SET Spam = -1 WHERE Email = '"&Request.Form("emailunsub")&"'")
conn_data.Close
Set conn_data = nothing

Unsubscribe = "Vaše emailová adresa byla úspěšně odstraněna ze seznamu."
Set jmail2 = Server.CreateObject("JMail.Message")
jmail2.Charset = "Windows-1250"
jmail2.AddRecipient "sklep@sklep.cz", "vinný sklep"
jmail2.AddRecipient Request.Form("emailunsub")
jmail2.From = "sklep@sklep.cz"
jmail2.FromName = "vinný sklep"
jmail2.Subject = "Odhlášení informačního servisu"
jmail2.Body = "Odhlášení zasílání informací na adresu: " & Request.Form("emailunsub")
jmail2.Send "mail.misenska.cz"
else
Unsubscribe = "Špatný formát zadané email adresy."
end if
end if
%>



A na príslušnom mieste v stránke príslušný formulár:


<!-- Prihlasovací formulár - zaciatok -->
<div class="newsbox">
<div class="newsleft">
<span class="newstitle">Přihlášit odběr novinek</span>
<form name="subscribe" method="POST" action="index.asp" target="_blank">
<b>Vaše emailová adresa</b>
<input type="text" class="FlatE" name="emailsub" size="17"><br>
<b>Vaše jméno</b>
<input type="text" class="FlatE" name="name" size="17">
<input type="submit" class="FlatE" name="submit" value="Přihlásit">
<input type="hidden" name="type" value="subscribe">
<br><b><%=Subscribe%></b>
</form>
</div>
</div>
<!-- Prihlasovací formulár - koniec -->




<!-- Odhlasovací formulár - zaciatok -->

<div class="newsbox">
<div class="newsleft">
<span class="newstitle">Odhláit odběr novinek</span>
<form name="unsubscribe" method="POST" action="index.asp" target="_blank">
<b>Vaše emailová adresa</b>
<input type="text" class="FlatE" name="emailunsub" size="17"> <input type="submit" class="FlatE" name="submit" value="Odhlásit">
<input type="hidden" name="type" value="unsubscribe">
<br><b><%=Unsubscribe%></b>
</form>
</div>
</div>

Spolieham sa na niekoho šikovného, kto ma usmerní, lebo si neviem rady.
Vďaka.


 [ Príspevok: 1 ] 


Registračný formulár v asp - kde je chyba, PROSÍM?



Podobné témy

 Témy  Odpovede  Zobrazenia  Posledný príspevok 
V tomto fóre nie sú ďalšie neprečítané témy.

ASP.NET, ASP programátor-analytik

v Ponuka práce

0

1014

02.11.2006 9:52

Michaela

V tomto fóre nie sú ďalšie neprečítané témy.

Kde je chyba?

v Operačné systémy Microsoft

3

203

29.11.2009 10:22

mack0

V tomto fóre nie sú ďalšie neprečítané témy.

Kde je chyba?

v Databázy

11

550

11.05.2008 20:19

waresko18

V tomto fóre nie sú ďalšie neprečítané témy.

KDE JE CHYBA ???

v Notebooky a netbooky

3

94

07.04.2013 17:12

walther

V tomto fóre nie sú ďalšie neprečítané témy.

kde je chyba?

v HTML, XHTML, XML, CSS

10

335

07.01.2009 21:34

rooobertek

V tomto fóre nie sú ďalšie neprečítané témy.

kde je chyba ?

[ Choď na stránku:Choď na stránku: 1, 2 ]

v ATI/AMD grafické karty

34

806

18.07.2010 12:30

djfreeman

V tomto fóre nie sú ďalšie neprečítané témy.

kde je chyba????

v PHP, ASP

21

1333

29.08.2006 19:57

Alyx_Vance

V tomto fóre nie sú ďalšie neprečítané témy.

Kde je chyba?

v PHP, ASP

8

282

26.11.2008 19:55

rooobertek

V tomto fóre nie sú ďalšie neprečítané témy.

kde je chyba?

v Optické zariadenia

6

489

07.07.2009 15:56

shiro

V tomto fóre nie sú ďalšie neprečítané témy.

kde je chyba ???

v Intel - Integrated Electronics

3

337

03.10.2008 23:53

Jaro

V tomto fóre nie sú ďalšie neprečítané témy.

kde je chyba?

v Notebooky a netbooky

17

303

29.07.2012 13:56

tonky51

V tomto fóre nie sú ďalšie neprečítané témy.

Kde je chyba ? mysql

v Databázy

4

522

21.05.2008 19:46

tommy70777

V tomto fóre nie sú ďalšie neprečítané témy.

phpbb - Kde je chyba?

v Redakčné systémy

4

486

08.02.2008 18:29

feips

V tomto fóre nie sú ďalšie neprečítané témy.

Neviem kde je chyba???

v Intel čipové sady

2

412

27.03.2009 18:53

zajo301

V tomto fóre nie sú ďalšie neprečítané témy.

e8400 kde je chyba?

v Biosy a ladenie výkonu

1

288

06.12.2008 20:41

fuco

V tomto fóre nie sú ďalšie neprečítané témy.

Kde moze byt chyba?

v Ovládače

14

398

03.06.2011 17:38

sph1Nx



© 2005 - 2017 PCforum, edited by JanoF