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

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>

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

Benzer içerikler