Asp aktivasyon script sorunu yardım .....

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Asp / Asp.NET Asp aktivasyon script sorunu yardım .....

Bu konudaki kullanıcılar: 1 misafir

0
Cevap 862
Tıklama 0
Öne Çıkarma

1. sayfa

Asp aktivasyon script sorunu yardım .....

Cevap Yaz

soybelli

17 yıl

Teğmen

Konu Sahibi

Arkadaşlar bi site scriptinde öğelere aktivasyon kodu gidiyor. Maildeki linke tıklandığında sürekli Geçersiz Aktivasyon Kodu Hatası Veriyor.
Uzman Arkadaşlar
Yardımcı olursanız sevinirim....

<%
id=filtre(request.QueryString("id"))
act=filtre(request.QueryString("act"))
if id<>"" then
Set sorgu1 = Server.CreateObject("ADODB.Recordset")
sorgu1sql = "select * from firmalar where kullaniciadi='"&id&"' and usrid='"&act&"' and onay=0"
sorgu1.Open sorgu1sql,objConn,1,3
if not sorgu1.bof then
frmkullanici=sorgu1("kullaniciadi")
frmsifre=sorgu1("sifre")
mesajtxt="<span class='verdn13bldysl'>! Üyeliðiniz Onaylanmýþtýr.<br>Kullanýcý Adý ve Þifremizle Sitemize Üye Giriþi Yapabilirsiniz</span>"
sorgu1("onay")=1
sorgu1.update

'mailaç###################################

Set mail=Server.CreateObject("Adodb.Connection")
mail.Open "driver={SQL Server};server=localhost;uid=mail;pwd=987654321;database=merak"

SQL = "SELECT top 1 U_ID " _
& "FROM users " _
& "ORDER BY U_ID desc"
set mailac = mail.execute(SQL)

SQL ="INSERT INTO users "_
& "(U_Type,U_ID, U_Alias,U_Domain,U_AntiSpamIndex,U_Name,U_Mailbox,U_AccountDisabled,U_AccountValid,U_AllowRemote,U_ValidityReport,U_ValidityReportDays,U_AuthMode,U_AccountType,U_IMAPMailbox,U_DontShowMessagesSize,U_AVScan,U_AnyPassword,U_ETRN,U_DeleteExpire,U_NULL,U_Password,U_AuthModeValue,U_IASCustom,U_DomainAdmin,U_MailboxPath,U_Admin,U_MaxBox,U_MaxBoxSize,U_RespondOnlyIfToMe,U_Respond,U_ServicesAccess,U_UseRemoteAddress,U_ForwardTo,U_RespondWith,U_MailIn,U_MailOut,U_ValidReport,U_DeleteOlder,U_DeleteOlderDays,U_ForwardOlder,U_ForwardOlderDays,U_ForceFromAddress,U_ForwardOlderTo,U_RemoteAddress,U_NoMailList,U_NumberSendLimit,U_MegabyteSendLimit) values "_
& "(0,"&mailac("U_ID")+1&",';"&frmkullanici&";','e-pazaryeri.net',1,'"&frmkullanici&";','"&frmkullanici&"','0','0','0','0',0,'0','0','',1024,'1','0','4','0','0','"&frmsifre&"','',0,'0','lisans.com.tr\"&frmkullanici&"\','0','1',5120,'0',0,200,'0','',';','','','','0',0,'0',0,'','','','1',50,15) "
mail.execute(SQL)

SQL ="INSERT INTO Aliases "_
& "(A_Alias,A_Domain,A_UserID) values "_
& "('"&frmkullanici&"','e-pazaryeri.net',"&mailac("U_ID")+1&") "
mail.execute(SQL)

mailac.close
set mailac=nothing

'#########################################

sSql="INSERT INTO firmaanahtar (usrid) values('"&sorgu1("usrid")&"') "
set objRs=objConn.Execute(sSql)
set objRs=nothing
sSql="INSERT INTO firmahakkimizda (usrid) values('"&sorgu1("usrid")&"') "
set objRs=objConn.Execute(sSql)
set objRs=nothing
sSql="INSERT INTO firmaurunler (usrid) values('"&sorgu1("usrid")&"') "
set objRs=objConn.Execute(sSql)
set objRs=nothing
sSql="INSERT INTO firmalinkler (usrid,ha,ur,il,ta,onktg,on_urun) values('"&sorgu1("usrid")&"',1,1,1,1,1,5) "
set objRs=objConn.Execute(sSql)
set objRs=nothing

Dim olustur, kopyala
Set olustur=CreateObject ("Scripting.FileSystemObject")
olustur.CreateFolder (replace(server.mappath("..\"),"/","\")&"\"&left(frmkullanici,1)&"\"&frmkullanici)
set olustur=nothing
Set kopyala=CreateObject ("Scripting.FileSystemObject")
kopyala.CopyFolder replace(server.mappath("..\"),"/","\")&"\admintool\uye\*",replace(server.mappath("..\"),"/","\")&"\"&left(frmkullanici,1)&"\"&frmkullanici&"\",false
kopyala.CopyFile replace(server.mappath("..\"),"/","\")&"\admintool\uye\*.*",replace(server.mappath("..\"),"/","\")&"\"&left(frmkullanici,1)&"\"&frmkullanici&"\",false
set kopyala=nothing

sorgu1.close
set sorgu1=nothing
else
mesajtxt="<span class='verdn12bldkrm'>! Geçersiz Aktivasyon Kodu </span>"
end if
end if%>
<table width="100%" height="160" border="0" cellpadding="0" cellspacing="1" bgcolor="#3E7AC8">
<tr>
<td><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="26" align="left" valign="middle" background="images/bck1.gif" class="verdn13bldbyzlnk"> Aktive Ýþlemi </td>
</tr>
<tr>
<td valign="top"><table width="95%" height="183" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#E7E7E7">
<tr>
<td align="center" valign="middle" bgcolor="#FFFFFF"><%=mesajtxt%><br>
<img src="images/logoufak.gif" width="92" height="19" hspace="10" vspace="5"></span></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Asp / Asp.NET Asp aktivasyon script sorunu yardım .....