• Unfortunately, we have experienced significant hard drive damage that requires urgent maintenance and rebuilding. The forum will be a state of read only until we install our new drives and rebuild all the configurations needed. Please follow our Facebook page for updates, we will be back up shortly! (The forum could go offline at any given time due to the nature of the failed drives whilst awaiting the upgrades.) When you see an Incapsula error, you know we are in the process of migration.

Dragonica website

Newbie Spellweaver
Joined
Dec 25, 2010
Messages
41
Reaction score
11
give at least a function for registering or to the registration page
 
Newbie Spellweaver
Joined
Mar 30, 2008
Messages
14
Reaction score
0
<!--#include file="common/inc/xconn.asp"--> change to <!--#include file="user/common/inc/xconn.asp"-->


Note: Edit your register.asp from root folder.


after editing your register.asp


edit xconn.asp


<%
SqlDatabaseName = "xnews"
SqlDatabaseName2 = "DR2_Member"
SqlDatabaseName3 = "DR2_user"
SqlUsername = "sa"
SqlPassword = "123456"
SqlLocalName = "BLESER-PC\SQLEXPRESS" (change to your sql server name)
SqlLocalName2 = "BLESER-PC\SQLEXPRESS" (change to your sql server name)

if not isobject(conn) then
set conn = Server.CreateObject("ADODB.CONNECTION")
'ConnStr1 = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial

Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=BLESER-PC\SQLEXPRESS(change to your sql server

name);uid=sa;pwd=123456;database=xnews"
'conn.Open connstr1
end if

if not isobject(conn2) then
Set conn2=Server.CreateObject("ADODB.Connection")
'ConnStr2 = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial

Catalog = " & SqlDatabaseName2 & "; Data Source = " & SqlLocalName2 & ";"
'conn2.Open connstr2
conn2.open "PROVIDER=SQLOLEDB;DATA SOURCE=BLESER-PC\SQLEXPRESS(change to your sql server

name);uid=sa;pwd=123456;database=DR2_Member"
end if

if not isobject(conn3) then
Set conn3=Server.CreateObject("ADODB.Connection")
'ConnStr3 = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial

Catalog = " & SqlDatabaseName3 & "; Data Source = " & SqlLocalName2 & ";"
'conn3.Open connstr3
conn3.open "PROVIDER=SQLOLEDB;DATA SOURCE=BLESER-PC\SQLEXPRESS(change to your sql server

name);uid=sa;pwd=123456;database=DR2_user"
end if



if not isobject(rs) then
set rs = Server.CreateObject("ADODB.recordset")
end if

%>
<!--#include file="functions.asp"-->



I modified the webserver to english.

PM me if you want.
 
Junior Spellweaver
Joined
Jun 27, 2015
Messages
100
Reaction score
18
Link is broken, Would love this website.
 
Newbie Spellweaver
Joined
Dec 25, 2010
Messages
41
Reaction score
11

Code:
https://mega.co.nz/#!vlgW1AaB!KknHRVxnyzDXV3OU6j-frCkOmHuPJwC27J1eRHduQiI
 
Newbie Spellweaver
Joined
Nov 1, 2015
Messages
11
Reaction score
1
[h=3]nvalid or Deleted File.[/h]The key you provided for file access was invalid. This is usually caused because the file is no longer stored on MediaFire. This occurs when the file is removed by the originating user or MediaFire.
Still have questions, or think we've made a mistake? Please contact support for further assistance.
 
Back
Top