Smider lige hele koden, i haab om at nogle kan se dagens lys
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<%@ LANGUAGE=VBSCRIPT %>
<%
Response.Expires=0
Response.Expires=-1
'Dataconnection to database *** old one
Dim objConnOld
Set objConnOld = Server.CreateObject("ADODB.Connection")
objConnOld.Mode = 3
objConnOld.CommandTimeout = 60
objConnOld.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source= D:\inetpub\wwwroot\_Databaser\Register\webCV.mdb;" & _
"User Id=admin;" & _
"Password=;"
''Dataconnection to database *** new one
Dim objConnNew
Set objConnNew = Server.CreateObject("ADODB.Connection")
objConnNew.Mode = 3
objConnNew.CommandTimeout = 60
objConnNew.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source= D:\inetpub\wwwroot\_Databaser\Register\webCV_new.mdb;" & _
"User Id=admin;" & _
"Password=;"
Response.Write("<p>Db connection established")
Response.Write("<p>Ready to transfer")
objConnNew.BeginTrans
On Error Resume Next
Set RS_From = objConnOld.Execute("SELECT * FROM Experts WHERE ExpertID = 53")
Dim total
total = 0
Do Until RS_From.EOF
Response.Write("<br />Processing... " & RS_From("ExpertID"))
objConnNew.Execute("INSERT INTO Experts (Title, FirstName, LastName, Address, City, PostalCode, Country, " _
& "Email, Phone, Mobile, Nationality, Reference, Price, [Password], [Comments], CV_english, BirthDate, LastLogIn, Company, RegByDTI) " _
& "VALUES ('" & RS_From("Title") & "', " _
& "'" & RS_From("FirstName") & "', " _
& "'" & RS_From("LastName") & "', " _
& "'" & RS_From("Address") & "', " _
& "'" & RS_From("City") & "', " _
& "'" & RS_From("PostalCode") & "', " _
& "'" & RS_From("Country") & "', " _
& "'" & RS_From("Email") & "', " _
& "'" & RS_From("Phone") & "', " _
& "'" & RS_From("Mobile") & "', " _
& "'" & RS_From("Nationality") & "', " _
& "'" & RS_From("Reference") & "', " _
& "'" & RS_From("Price") & "', " _
& "'" & RS_From("Password") & "', " _
& "'" & RS_From("Comments") & "', " _
& "'" & RS_From("CV") & "', " _
& "#" & RS_From("BirthDate") & "#, " _
& "#" & RS_From("LastLogIn") & "#, " _
& "'', " _
& "'' " _
& ")")
If ISNull(rs_from("FileConsult2")) Then
Response.Write("...null")
Else
objConnNew.Execute("INSERT INTO Files (ExpertID, [FileName], [File]) VALUES ('" & RS_From("ExpertID") & "', '" & RS_From("FileNameConsult2") & "', '" & RS_From("FileConsult2").GetChunk(1024000) & "')")
End if
'If rs_from("FileConsult1")<>"" Then
' Response.Write("...billed")
'End if
Response.Write("..." & RS_From("Password"))
Response.Write("..." & RS_From("Comments"))
total = total + 1
RS_From.MoveNext
Loop
Response.Write("<br /> Total: " & total)
if Err <> 0 then
objConnNew.RollbackTrans 'If error undo changes made by our ADO Connection
Response.write("Error: " & Err.Description)
'Response.end ' can be turned on in order to troubleshoot better
'Response.Redirect (sHome & "error_page.asp?message=language&tempemail=" & Request.Form("Email"))
end if
'*****procced with registration and commit db transaction
'if processer has progressed to this site, every database transaction has been succefully
objConnNew.CommitTrans ' thereby we let our ado connection do all of the requested operations.
%>
